Przerwanie zamykania programu

Jak zrobić, żeby przy zamykaniu programu przy określonych okolicznościach program się nie zamknął? Chodzi o to, że program przy zamykaniu pyta sie, czy zapisać plik, czy anulować(zostawić program uruchomiony).

Mozesz napisac w CloseQuery na Formie:

CanClose := false;

w tedy program sie nie zamknie. Jezeli bedziesz chciał zamknac program, bedziesz musiał wykorzystac

Application.Terminate;

, np:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 if Saved = true then
 begin
  Application.Terminate;
 end else
 begin
  CanClose := false;
 end;
end;

w gobalnych var:
Saved: boolean;

// co to za debilny warunek:

Saved = true

??? - ŁF

przecież to można zrobić w jednej linijce:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := Saved;
end;

:>

Misio: masz to wszystko w helpie, object inspektorze i w przykładach - więc po co zaśmiecasz forum?