var
 Save: Integer;

begin
 Save := Application.MessageBox('Zapisa zmiany?', 'Potwierd', MB_YESNO);
 if Save = idYes then
   StudInfo.Post   {zatwierd zmiany}
 else
   StudInfo.Cancel {anuluj zmiany}
end;