Sender unterscheiden

[faux]

Hallo!

Ich will, wenn man in meinem Prog auf ein TMenuItem "Beenden" klickt, etwas anderes passiert als wenn man auf das x im Systemmenu klickt...
Wie geht das?
So nicht:

Delphi-Quellcode:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if Sender is TMenuItem then
    Action := caFree
  else
    Action := caNone;
end;