No se guardan las imágenes completas en el campo LONGBLOB

[ecfisa]

Hola oh.mely, bienvenida a los foros de Club Delphi

Si el formato guardado es un .jpg válido, inténtalo de este modo:

Código Delphi [-]
...

uses Jpeg;

procedure TuForm.BitBtn1Click(Sender: TObject);
var
  J: TJPEGImage;
begin
  //...
  Image1.Picture := nil;
  J := TJPEGImage.Create;
  try
    J.Assign(TBlobField(Query.FieldByName('IMAGEN')));
    imgFoto.Picture.Assign(J);
  finally
    J.Free;
  end;
end;

Saludos