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

...
         DS.Active := false;
         inssql := 'INSERT INTO DS (DATUM,ZEIT) VALUES (''13.05.2003'',''22:59:58'')';
showmessage ('*'+InsSQL+'*');
          DS.InsertSQL.Text := InsSQL;
          DS.Active := true;
  ...
  TransAction.Commit;
  DataBase.Close;
end;					

1:

inssql := 'INSERT INTO DS (DATUM) VALUES					

1:
2:
3:
4:
5:
6:

vDatum := edDatum.Text; // Soweit ich weiss muss das Datum kein QuotedStr sein, in meinem Prog funzt es jedenfalls so
vZeit := QuotedStr(edZeit.Text); // wie das dann mit Zeit und QuotedStr ist, weiß ich nicht, probier am Besten mal mit und mal ohne
vText := QuotedStr(edText.Text);

('INSERT INTO DS (DATUM, ZEIT, TEXT) VALUES (' + vDatum);
(',' + vZeit + ',' + vText + ')');					

1:
2:

if vPreis <> '' then Add('UPDATE DS SET preis = ' + QuotedStr(vPreis)');
// schematisch dargestellt, nicht unbedingt Syntax-Konform					

1:
2:
3:
4:
5:
6:
7:
8:
9:

 DS.Active := true;
      DS.Insert; // leeren Datensatz erzeugen
      REPEAT
          ...
          DS.FindField(FeldName).Value := FeldInhalt;  // Felder mit Werten besetzen

      UNTIL ...;
      DS.Post;
      DS.Active := false;