TrayIcon en delphi 2010

[erickahr]

Hola compañeros, estoy haciendo una aplicacion que se encuentra iconizada en el area de notificacion, la estoy desarrollando en delphi 2010, con el TrayIcon que viene en los componentes nativos (no es CoolTrayIcon ni Rx), tengo un procedimiento que uestra el globito para las notificaciones.

Código Delphi [-]
 
procedure TMainForm.MuestraGlobo(Mensaje, Titulo: String; Tiempo: Integer;
  Bandera: TBalloonFlags);
begin
  With TrayIcon1 do
    begin
      BalloonHint:=Mensaje;
      BalloonTitle:=Titulo;
      BalloonTimeOut:=Tiempo*1000;
      BalloonFlags:=Bandera;
      ShowBalloonHint;
    end;
end;

Para llamarlo:

Código Delphi [-]
MuestraGlobo('Mensaje', 'Titulo de globo', 10, bfInfo);

Me funciona perfecto en Windows Vista, y en Windows 7, pero no en XP, ojala me puedan ayudar. Quiero que se muestre tambien en XP, pero simplemente no hace nada.