1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:

procedure TForm_projektverwaltung.btn_speichernClick(Sender: TObject);
begin
//CS    query_projektverwalten.SQL.Text :='INSERT INTO Projekt VALUES ('+Edit_projektname.Text+')';
  query_projektverwalten.open;
  if insert then  //neu
  begin
    Query_projektverwalten.Append;
  end
  else  //bearbeiten
  begin
    Query_projektverwalten.Edit;
  end;
    Query_projektverwalten.FieldByName('projektname').AsString := Edit_projektname.Text;
    Query_projektverwalten.FieldByName('begin').AsDateTime := DateTimePicker1.Date ;
    Query_projektverwalten.FieldByName('ende').AsDateTime := DateTimePicker2.Date;
    Query_projektverwalten.FieldByName('anzahl').AsString := Edit_anzahlmitarbeiter.Text;
    Query_projektverwalten.FieldByName('beschreibung').AsString := Memo1.Text;
    Query_projektverwalten.Post;
// Ich vermute, dass Query_projektauswaehlen die Daten im DBGrid anzeigt.
//    Query_projektauswaehlen.Open; 
// Entweder muss hier folgendes stehen:
    Query_projektauswaehlen.Close;
    Query_projektauswaehlen.Open;
// oder
    Query_projektauswaehlen.Refresh;
    insert := false;

end;