CanClose

[Luki206]

Hi,
ich habe folgendes Problem: ich möchte das bei OnClose meines Fensters eine Überprüfung machen ob das Fenster wirklich geschlossen werden sollte, nur klappt das nicht ganz.. Ich muss dazu sagen ich möchte das wenn der Benutzer, ja wählt, das eine kleine .txt Datei erstellt werden soll. Bis jetzt sieht das ganze so aus:

Delphi-Quellcode:

procedure TFrmHaupt.FormClose(Sender: TObject; var Action: TCloseAction);
var
sl : TStringList;
s, d, z: String; mr: Integer; CanClose: Boolean;
begin
 mr := MessageDlg('Wirklich schließen???',mtConfirmation,[mbYes,mbNo],0);
   if mr = mrYes {mrNo} then begin
   if LblGesammt.Caption = '0' then begin
   MessageDlg('Es konnte kein Gesammt Protokoll angelegt werden, da keine Waffeln gebucht worden sind.', mtWarning, [mbOK], 0);
   CanClose := true;
   end else begin
   d := DateToStr(date);
   z := System.SysUtils.FormatDateTime('"Gesammt Protokoll " hh-nn-ss   dd, mm, yyyy' , (Now));
   s := (LblGesammt.Caption);
   sl:=TStringList.Create;
   try
     sl.Add('Es wurden '+s+' Waffeln produziert und verkauft.');
     sl.SaveToFile('c:\ProgramData\Crepesworker\Protokoll '+d+'\'+z+'.txt');
   finally
     sl.Free;
   end;
   end;
   CanClose := true;
end else
 CanClose := false;
end;

Das ganze dient eher nur zum 'spielen und experimentieren' als das es wirklich in gebrauch genommen wird
Danke
Gruß
Luki