procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);var mr:Integer;begin mr:=Messagedlg('Сохранить изменения в файле?',mtcustom, [mbYes, mbNo, mbcancel], 0); if mr = mrYes then saveClick(Sender) else if mr = mrCancel then CanClose:=false;end;