tray icon mousedown Problem

[fpr1]

Ich habe ein Programm mit Tray Icon geschrieben
Jetzt möchte ich, dass es bei einem Klick mit der mittleren Maustaste auf das Icon geschlossen wird
Das funktioniert zwar aber es schließt sich jetzt dummerweise auch bei einem Klick mit der linken Maustaste

Delphi-Quellcode:

procedure TForm5.TrayIcon1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if (button = mbmiddle) then
 begin
   application.terminate;
 end
else
 begin
   trayicon1click(self);
 end;
end;

Hat einer ne Ahnung warum dem so ist?
Danke schon mal im Voraus