Delphi - no funciono

hola mira estuve probando y ahora me pasa lo siguiente:

con imagenes *.bmp si carga la imagen en el campo pero al tratar de guardar (ZQuery.post) me manda el siguiente error.

SQL Error: Got a packet bigger than 'max_allowed_packet' bytes

y con imagenes jpg al liberar el blob (Blob.Free) me manda el siguiente error.

Bitmap image is not valid

les pongo el codigo

QInveI.Insert;
QInveIClv_art.Value := QInveclv_art.Value;
OpenDialog1.Execute;
If FileExists(Opendialog1.FileName) then
Foto := Opendialog1.FileName;

Blob := QInveI.CreateBlobStream(QInveIIMAGEN,bmWrite);
Try
Blob.Seek(0,soFromBeginning);
fs := TFileStream.Create(Foto, fmOpenRead or fmShareDenyWrite);
Try
Blob.CopyFrom(Fs, fs.Size);
Finally
fs.Free
end;
Finally
Blob.Free
end;

alguna recomendacion ¿estoy haciendo algo mal?