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

[SirThornberry]

an deinem Quelltext ist nichts zu erkennen. Interessant wäre zu wissen welche Komponente du verwendest bzw. wie du die reale Mousemessage zu deiner Methode weiter gibst. Auch ist nirgends zu sehen was trayicon1click macht.

[fpr1]

Delphi-Quellcode:

procedure TForm5.TrayIcon1Click(Sender: TObject);
begin
Application.MainForm.Show;
Application.Restore;
Application.BringToFront;
end;

ich benutze die Trayicon Componente dies fertig beim Developer Studio gibt (Additional)