Grabar Imagen en campo BLOB Firebird

[pcicom]

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...

           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....