{
Satz = record
        bild : TBitmap;
      end;

TestInsertSQL  =      'INSERT INTO :table ' +
                      ' VALUES(' +
                      '  null,            '    +
                      '  :bild            '    +
                      ');';
}

function Insert(tname : string; DataSet : Satz): boolean;

var PicStream : TMemoryStream;

begin
 Result := true ;

  DBQuery.SQLQuery.Close ;
  DBQuery.SQLQuery.SQL.Clear ;
  DBQuery.SQLQuery.Sql.Text := TestInsertSQL ;

  DBQuery.SQLQuery.Sql.Text := stringReplace (DBQuery.SQLQuery.Sql.Text,
                                              ':table',tname,
                                              [rfReplaceAll,rfIgnoreCase]);

  PicStream := TMemoryStream.Create;

  try
     DataSet.bild.SaveToStream(PicStream);
  except
  end;

    with DBQuery.SQLQuery.Params do
    begin
      createparam(ftblob,'bild',ptInput);
      ParamByName('bild').LoadFromStream(PicStream,ftblob);
    end;

    DBQuery.SQLQuery.ExecSQL;

  PicStream.Free;
end;