Close funktioniert nicht ?!

[inzzi]

Delphi-Quellcode:

procedure Twebdesign.set_closeClick(Sender: TObject);
var byAntwort: byte;
begin
// -> schliessen abfrage
byAntwort := Application.MessageBox(
             'Wollen Sie das Programm beenden?','Programm beenden',MB_YESNO or MB_ICONQUESTION);

    if byAntwort = IDYES then
        Close;
end;

das is im mainmenu -> datei -> beenden

warum funktioniert hier der befehl "close" nicht.
Error: Anweisung erforderlich, aber Ausdruck vom Typ 'TMenuItem' gefunden.

Close ist ja eine Anweisung ?![/delphi]