insertar un archivo en un campo blob desde delphi

[[Caral]]

Hola
Ya consulte a mi Maestro Egostar y en el help sale esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);

var
  Stream1, Stream2 : TIBBlobStream;
begin
  Stream1 := TIBBlobStream.Create(IBTable1Notes);
  try
    Stream1.Mode = bmRead;
    IBTable2.Edit;
    { here’s a different way to create a blob stream } 
    { note that with this one, we don’t need a try.. finally clause }
    { because we are not responsible for freeing the stream }
    Stream2 := IBTable2.CreateBlobStream(IBTable2.FieldByName('Remarks'), bmReadWrite);
    Stream2.CopyFrom(Stream1, Stream1.Size);

    IBTable2.Post;
  finally
    Stream1.Free;
  end;
end;

Ahi lo dice todo.
Saludos