Закрытие окна крестиком и реакция ADOTable.Modified

procedure TFmSozdanieZayavki.FormCloseQuery(Sender: TObject;
var CanClose: Boolean);
 
begin// 0
If FmZayavki.ADOTable1.Modified Then//A
Begin// 1
  If Application.MessageBox('Сохранить все сделанные вами изменения?', //B
    'Сохранение изменений', MB_IConQuestion + MB_YesNo) = 6 Then
  Begin// 2
    FmZayavki.ADOTable1.Post;
    FmZayavki.ADOTable1.Edit;
    If (S3 = '0') And (DBMoPrim.Lines.Count > 0) Then
    Begin// 3
      FmZayavki.ADOTable1.FieldByName('PervOsmotr').Value :=
      FormatDateTime('d/mmm/yyyy', Date) + ' | ' + FormatDateTime('h:nn', Time);
    End;// 3
    For i := 0 To 3 Do
      S1 := S1 + DBMoSoder.Lines[i] + ' ';
    FmZayavki.ADOTable1.FieldByName('SoderjanieStroka').Value := S1;
    FmZayavki.ADOTable1.Post;
  End// 2
  Else//B
  Begin// 4
    FmZayavki.ADOTable1.Cancel;
  End;// 4
End//1
end;//0

procedure TFmSozdanieZayavki.FormCloseQuery(Sender: TObject;
var CanClose: Boolean); 
begin// 0
if FmZayavki.ADOTable1.State = dsBrowse then Exit;
  If Application.MessageBox('Сохранить все сделанные вами изменения?', //B
    'Сохранение изменений', MB_IConQuestion + MB_YesNo) = 6 Then
  Begin// 2
    FmZayavki.ADOTable1.Post;
    FmZayavki.ADOTable1.Edit;
    If (S3 = '0') And (DBMoPrim.Lines.Count > 0) Then
    Begin// 3
      FmZayavki.ADOTable1.FieldByName('PervOsmotr').Value :=
      FormatDateTime('d/mmm/yyyy', Date) + ' | ' + FormatDateTime('h:nn', Time);
    End;// 3
    For i := 0 To 3 Do
      S1 := S1 + DBMoSoder.Lines[i] + ' ';
    FmZayavki.ADOTable1.FieldByName('SoderjanieStroka').Value := S1;
    FmZayavki.ADOTable1.Post;
  End// 2
  Else//B
  Begin// 4
    FmZayavki.ADOTable1.Cancel;
  End;// 4
 
end;//0

FmZayavki.ADOTable1.State

procedure TFmSozdanieZayavki.BtBnZakritClick(Sender: TObject);
begin// 1
FmSozdanieZayavki.Close;
end;// 1