Ayuda con insercion de imágenes en campo blob
 

Ayuda: Tengo el siguiente código para insertar una imágen en un campo blob de interbase:

procedure TForm1.Button1Click(Sender: TObject);
var
foto, pic : TStream;
begin
if OpenPictureDialog1.Execute then begin
IBDataset1.Edit;
pic := IBDataSet1.CreateBlobStream(IBDataSet1FOTO, bmWrite);
foto := TFileStream.Create(OpenPictureDialog1.FileName,fmOpenRead);
pic.CopyFrom(foto,foto.Size);
IBDataSet1.Post;
foto.Free;
pic.Free;
end;
end;

Lo he probado con delphi 2007 y está bien, sin embargo en .net no, alguin puede darme una sugerencia? Lo necesito para delphi .net