procedure Einfugen(lnr: Integer; DaSet: TIBDataSet; Tab, Dat: String);
begin
with DaSet do begin
SelectSQL.clear;
SelectSQL.add('INSERT INTO '+Tab+' (id, kill, bild) ');
SelectSQL.add('VALUES ('+IntToStr(lnr)+', 0, :mybv) ');
ParamByName('mybv').LoadFromFile(Dat);
ExecSQL;
SelectSQL.text:='commit';
ExecSQL;
end;
end;

procedure Erneuern(lnr: Integer; DaSet: TIBDataSet; Tab, Dat: String);
begin
with DaSet do begin
SelectSQL.Clear;
SelectSQL.add('UPDATE '+Tab+' SET bild = :mybv ');
SelectSQL.add('WHERE id='+IntToStr(lnr) );
ParamByName('mybv').LoadFromFile(Dat);
ExecSQL;
SelectSQL.text:='commit';
ExecSQL;
end;
end;

procedure Auslesen(lnr: Integer; DaSet: TIBDataSet; Tab: String; Foto: TImage);
begin
with DaSet do begin
SelectSQL.Clear;
SelectSQL.add('SELECT bild FROM '+Tab );
SelectSQL.add(' WHERE id='+IntToStr(lnr) );
open;
Foto.Picture.Bitmap.Assign(TBLOBField(FieldByName('bild')));
close;
end;
end;