1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure Twohnungen_edit.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
begin
 if Form1.DAOQuery1.State in dsEditModes then begin
---------------------------------------------------------------------------- 
// Hier der Fehler
// compiler(Delphi6) mault   
// undefinierter Bezeichner 'dseditmodes'
-----------------------------------------------------------------------------
      if ModalResult = mrOK then
   Form1.DAOQuery1.Post
   else
   Form1.DAOQuery1.Cancel;                    

1:
2:
3:
4:

  If (DataSetLieferanten.State = dsEdit) or (DataSetLieferanten.State = dsInsert) then
    If Application.MessageBox('Änderungen speichern?','Speichern?', mb_yesno) = mryes then
      DataSetLieferanten.Post;
  ModalResult := mrOK;