Zeilen editieren und updaten

[scuby]

Hallo zusammen,

ich habe ein winziges Problem und zwar, wenn ich eine Komplette Zeile aus meiner Datenabnk auslesen lasse, und die dann .Astring in Edit-Felder einfüge und dann dort editiere und anschließend wieder in die selbe zeile einfügen möchte, bekomme ich eine Fehlermeldung.
Ich denke, das ich nur den Falschen Befehl für das Updaten benutze, villeicht könnt ihr mir ja helfen.
Hier mein Code zur entsprechenden Stelle:

Delphi-Quellcode:

procedure TForm6.Button7Click(Sender: TObject);
begin
query1.last;
edit2.Text := query1.Fieldbyname('Name').AsString;
edit3.Text := query1.Fieldbyname('Vorname').AsString;
edit4.Text := query1.Fieldbyname('Gebdat').AsString;
edit5.Text := query1.Fieldbyname('Straße').AsString;
edit6.Text := query1.Fieldbyname('Hnr').AsString;
edit7.Text := query1.Fieldbyname('PLZ').AsString;
edit8.Text := query1.Fieldbyname('Ort').AsString;
edit9.Text := query1.Fieldbyname('tel').AsString;
edit10.Text := query1.Fieldbyname('Fahrschule').AsString;
edit11.Text := query1.Fieldbyname('Kurs').AsString;
edit12.Text := query1.Fieldbyname('adatum').AsString;
edit13.Text := query1.Fieldbyname('edatum').AsString;
edit14.Text := query1.Fieldbyname('Lort').AsString;
edit15.Text := query1.Fieldbyname('Ausbilder').AsString;
end;

procedure TForm6.Button8Click(Sender: TObject);
var s,t : string;
begin
s := 'select Name,Vorname,Gebdat,Straße,hnr,plz,ort,tel,fahrschule,LFDNR from teilnehmer';
query1.close;
Query1.Sql.Text := s;
Query1.Active:=true;

t:= 'INSERT INTO teilnehmer (name, vorname, gebdat,straße,hnr,plz,ort,tel,fahrschule,ausbilder,adatum,edatum,kurs,Nummer,LOrt,LFDNR) VALUES ('+#39+ Edit2.Text+#39+','+#39+Edit3.Text+#39+','+#39+Edit4.Text+#39+','+#39+ Edit5.Text+#39+','+#39+Edit6.Text+#39+','+#39+Edit7.Text+#39+','+#39+
Edit8.Text+#39+','+#39+ Edit9.Text+#39+','+#39+ Edit10.Text+#39+','+#39+ Edit11.Text+#39+','+#39+ Edit12.Text+#39+','+#39+ Edit13.Text+#39+','+#39+ Edit14.Text+#39+','+#39+ Edit15.Text+#39+')';
query1.close;
Query1.Sql.Clear;
Query1.Sql.Add(t);
Query1.Append;

end;