запрос на сохранение.

  if  application.MessageBox('Закрыть программу?','Подтверждение',MB_YESNO)=IDYES then
  if SaveDialog1.Execute then
    begin
   
 
 //Ваша Операция сохранения из Unit1
   if SaveDialog1.Execute then
begin
AssignFile(F,SaveDialog1.FileName);
Rewrite(F);
i:=1;
while stringGrid1.Cells[4,i]<>'' do
begin
r.fio:=stringGrid1.Cells[0,i];
r.gr:=stringGrid1.Cells[1,i];
r.faq:=stringGrid1.Cells[2,i];
r.predmet:=stringGrid1.Cells[3,i];
r.ocenka:=stringGrid1.Cells[4,i];
write(F,r);
i:=i+1
end;
closeFile(F)
end;
 
    End;

  //Диалог сохранения данных 
   case MessageBox(Handle,'Сохранить изменения?','Сохранить?',35) of
     6: SaveData(); //Нажата кнопка Да
     7: ;//Нажата кнопка Нет
     2: ClearForm(); //Нажата кнопка Отмена
  end;

6: ShowMessage('Нажата ДА'); 
7: ShowMessage('Нажата НЕТ'); 
2: ShowMessage('Нажата Отмена');