Delphi 7 Programı Kapat Kodu

[kaan_karabey]

Arkadaşlar ben şu Kodu Formun Close kısmına Ekliyorum Kapata bastıgımda soru ekranı geliyor evet e bastıgımda kapanıyor ama hayır a bastıgımdada kapanıyor

Kod: Tümünü seç

var
mesaj:Word;
begin
mesaj:=Application.MessageBox('Programdan Çıkmak İstiyor Musunuz ?','Programı Kapat',mb_yesno);
if mesaj=mrYes then
begin
Form1.Action:=FileExit1;
Form1.Click;
end
else
begin

end;
end;

[notname]

Kod: Tümünü seç

end else 
begin
action:=canone;
end;
end;