[coolfrog]

esta parte es de un label , y el popup que utilizo se llama Ipmenu1 por si acaso.
En la propiedad del label donde dice popup le puse el Ipmenu1 que cree.

procedure TForm1.Label1MouseEnter(Sender: TObject);
Label1.Color:=clBlue;
Label1.font.Color:=clYellow;
Label1.PopupMenu.Popup(290,170);
end;

procedure TForm1.Label1MouseLeave(Sender: TObject);
begin
Label1.Color:= clYellow;
Label1.Font.Color:=clBlue;
//Label1.PopupMenu.
//lpmenu1.Destroy;
end;

esto es lo ultimo que probe:
ademas no se como ocultar el popup, por que no tiene ninguna propiedad hide o visible, asi que intente destruirlo pero sale un error y no creo que esa sea la mejor solucion.
Y tampoco puedo pasar al evento mousemove del form hasta que haga clic sobre el mismo.

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
//form1.Label1.Color:=clBtnFace;
Label1.PopupMenu.Destroy;
end;