Popupmenü blendet sich nicht mehr aus

[Van HelF]

Ich klicke genau auf das icon.
wenn ich das "SetForegroundWindow(Handle)" weglasse erscheint das taskleistenmenü nicht mehr, aber dafür geht mein popup nicht mehr weg.

Hier mein code:

Delphi-Quellcode:

procedure TForm1.WMTaskbarEvent(var Message: TMessage);
var
  Point: TPoint;
begin
  case Message.LParamLo of
     WM_LBUTTONDOWN: begin
                       TaskBarRemoveIcon;
                       form1.Show;
                       form1.BringToFront;
                     end;
     WM_RBUTTONDOWN: begin
                          SetForegroundWindow(Handle);
                          GetCursorPos(point);
                          popupmenu1.popup(point.x,point.y);
                     end;
  end;
end;