1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

var datei:TStream;  
begin  
  //Datei einlesen  
  datei:=TFileStream.Create('C:\testdatei.jpg',fmOpenRead or fmShareDenyWrite);  
  try  
    IBtesttabelle.Edit;  
    (IBTestTabelle.FieldByName('MeinBlobfeld')as TBlobField).LoadFromStream(Datei);
    IBtesttabelle.Post;  
  finally  
    datei.Free;  
  end;  
end;