Pero no entiendo por que no usas la propiedad PopupMenu del TTrayicon, asi el ya se encarga de mostraralo correctamente.
De todas formas si quieres mostraralo "a mano":
Código Delphi
[-]
procedure TWakeUp.TrayIcon1Click(Sender: TObject);
begin
SetForegroundWindow(PopupMenu1.WindowHandle);
PopupMenu1.Popup(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;