Datenbankeintrag über Editfelder

[shmia]

Delphi-Quellcode:

procedure TForm4.Button2Click(Sender: TObject); 
var s : String; 
begin 
  s := 'select Name,Vorname,Gebdat,Straße,hnr,plz,ort,tel,fahrschule from teilnehmer'; 
  query1.close; 
  Query1.Sql.Text := s; 
//  Query1.ExecSQL;  // falsch
  Query1.Active:=true; 

if (Edit1.Text = '') or (Edit2.Text = '') or (Edit3.Text = '') or (Edit4.Text = '') or (Edit5.Text = '') or (Edit6.Text = '') then 
raise Exception.Create('Bitte füllen Sie alle Felder mit einem " * " aus!'); 

Query1.Insert;  // zuerst Insert (oder eher Append)
Query1.FieldByName('Name').AsString := edit1.text; 
Query1.FieldByName('Vorname').AsString := edit2.text; 
Query1.FieldByName('Gebdat').AsString := edit3.text; 
Query1.FieldByName('Straße').AsString := edit4.text; 
Query1.FieldByName('Hnr').AsString := edit5.text; 
Query1.FieldByName('PLZ').AsString := edit6.text; 
Query1.FieldByName('Ort').AsString := edit7.text; 
Query1.FieldByName('tel').AsString := edit8.text; 
Query1.FieldByName('Fahrschule').AsString := edit9.text; 
Query1.FieldbyName('Kurs').ASString := Label2.Caption; 
Query1.Post;  // und dann post
end;