no me funciona trayicon en XE2

[darkbits]

un saludo al foro
estoy utilizando el trayicon y AppEvents de las RX tools en D6 y me funciona todo OK
pero en XE2 no me funciona? si pueden darme una mano si cambio algo para XE2 ?

OnActivate

Código Delphi [-]
{$IFNDEF WIN32}
  if Screen.ActiveForm <> nil then 
Screen.ActiveForm.BringToFront;
{$ENDIF}

OnMinimize

Código Delphi [-]
{$IFDEF WIN32}
  if NewStyleControls then 
ShowWindow(Application.Handle, SW_HIDE);
{$ENDIF}

OnRestore

Código Delphi [-]
{$IFDEF WIN32}
  if NewStyleControls then 
ShowWindow(Application.Handle, SW_SHOW);
{$ENDIF}

muy agradecido por la colaboración