вывод сообщения при закрытии программы

[tiger]

Я сейчас делаю курсовой проєкт про кассовые операции. если кто знает подскажите, можно ли реализовать вывод сообщения при закрытии программы такого типа :"Сохранить изменения таблицы в файл?", но чтобы это сообщение выводилось только в том случае если пользователь перед закрытием программы не нажимал на кнопку или пункт меню "Сохранить изменения", и конечно изменял в процессе работы программы данные в таблице StringGrid. короче закрытие наподобие того как в ворде. Помогите пожалуйста реализовать , если это возможно

[FaTaL]

Вот так:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
{Здесь реализовываешь проверку файла был ли он изменен}
  If MessageBox (Handle, 'Файл был изменен. Сохранить?', 'Закрытие', mb_YesNoCancel or mb_IconQuestion)=mrYes then
    begin
      {Процедура сохранения}
    end;
end;

[eoln]

Примерно так.

var
  IsEdit: boolean = false;//глобальная переменная (изменялись ли данные)
...
procedure TForm1.StringGrid1KeyPress(Sender: TObject; var Key: Char);
begin
  IsEdit := true;
end;

procedure TForm1.Save; //допустим это процедура сохранения
begin
  IsEdit := false;
  ...
end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  If IsEdit then
  If MessageDlg('Текст был изменён. Хотите сохранить изменения?', mtConfirmation,[mbYes,mbNo,mbCancel],0)=mrYes then
  Save;
  CanClose := true
end;

[Terran]

Я ещё добавлю ко всему выше написанному, что бы не писать длинных строк при выводе сообщения, можно использовать оператор Case:

Procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
Begin
CanClose:=False;
Case MessageBox(0,'Сохранить изменения таблицы в файл?','Внимание!',67) Of
IdYes: Save; //Сохранение
IdNo: CanClose:=True;
IdCancel: ;
End;
End;

[tiger]

spasibo ogromnejshee vsem!stol'ko otzyvov! zavtra budu probovat'