Процедура отмены (срочно!)

[MS]

Подскажите пожалуйста как сделать процедуру отмены. Вот код на Onclose:

if Messagedlg('Сохранить изменения в файле?',mtcustom,
[mbYes, mbNo, mbcancel], 0) = mrYes then
saveClick(Sender);
if Messagedlg('Сохранить изменения в файле?',mtcustom,
[mbYes, mbNo, mbcancel], 0) = mrcancel then (а далше что?)

Нужно, чтобы отменилось закрытие формы.
Заранее благодарю.

[Finch]

Читай мануал по функции OnClose. Насколько я помню, нужно возрашать из функции одну из четырех констант. Эти константы говорят VCL что дальше делать с формой.

[RomCom]

Надо обрабатывать событи CloseQuery и изменять CanClose на false если форму не надо закрывать.

Код:

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;

[MS]

Спасибо, очень помогли!