und so?
Code:
function TDataModule1.NeuerSatz(Wert1,Wert2,Wert3: string): Boolean;
begin
NeuerSatz := true;
try
ADOCommand1.CommandType := cmdText;
ADOCommand1.CommandText := 'INSERT INTO B24-700(Artikelbeschreibung,Artikelname,ArtikelNr) VALUES ('+QuotedStr(Wert1)+','+QuotedStr(Wert2)+','+QuotedStr(Wert3)+')';
ADOCommand1.Execute;
except
NeuerSatz := false;
end;
end;
die drei hochkommas solltest du nicht brauchen, denn dafür sorgt quotedstr()...