Foros Club Delphi - Grabar Imagen en campo BLOB Firebird

Como puedo Grabar una IMAGEN en un CAMPO BLOB mediante una instruccion SQL UPDATE xx SET foto= ?????

o si es posible angun otro METODO que sea RAPIDO, actualmente lo estoy haciendo con un TIBTable pero en el momento de ABRIR la Tabla se tarda un BUEN RATO y no pasa lo mismo cuandlo lo cargo con un TIBquery

Asi lo CARGO y va super RAPIDO...

Código:

           qryMFOTO.SQL.Clear;

           qryMFOTO.SQL.Add('SELECT AUT_NUME,AUT_FOTO,AUT_FEXT FROM mfoto WHERE AUT_NUME='+LLAVE.Text);

           qryMFOTO.Open;

           if not qryMFOTO.Eof then

           begin

             lExistMFOTO := true;

             Try

               Stream := TMemoryStream.Create;

               TBlobField(qryMFOTO.FieldByName('AUT_FOTO')).SaveToStream(Stream);

               if Stream.Size > 0 then

               begin

                 Stream.Position := 0;

                 if Pos(TRIM(NoNullC(qryMFOTO['AUT_FEXT'])),'.JPEG.JPG')>0 then

                 begin

                     jpg := TJpegImage.Create;

                     jpg.LoadFromStream(Stream);

                     FOTO.Picture.Assign(Jpg);

                     jpg.free;

                 end

                 ELSE

                    FOTO.Picture.Bitmap.LoadFromStream(Stream);

               end;

               stream.Free;

             except

               showmessage('El formato del Archivo o Fotografia es Invalido');

             end;

           end

           ELSE

               FOTO.Picture := NIL;

Si existe algun metodo para GRABAR cualquier IMAGEN o archivo a algun campo BLOB que no sea el TIBTable seria GENIAL...

La intencion mia es que mi sistema se maneja entre SUCURSALES y quisiera que el tiempo de respuesta sea lo mas eficiente que se pueda, , ya que usando el TIBTable tarda un rato en habilitar la pantalla....