Strings müssen in
SQL in Hochkommas gesetzt werden.
Dazu kann man die Funktion QuotedStr() verwenden.
Delphi-Quellcode:
procedure TForm3.Button1Click(Sender: TObject);
var commando:
string;
begin
commando := '
INSERT INTO Emails (Nr,Email,Herkunft) VALUES('+inttostr(1)+'
,'+QuotedStr(memo1.lines.strings[1])+'
,'+QutotedStr(Form2.edit1.text)+'
)';
// ein ganz einfacher Trick: man lässt sich eine SQL-Anweisung vorher anzeigen
// dann sieht man ganz leicht, ob daran noch etwas falsch ist
ShowMessage(commando);
ADOCommand1.CommandText := commando;
ADOCommand1.Execute;
end;