TrayIcon и BalloonTimeout

[avd]

Может кто-то сталкивался/разбирался с неадекватным поведением таймаута в балоне - в Win7, что ни выставляю всегда 4 сек., в XP время меняется, но как-то криво, вместо 20 сек. отрабатывает 30. (D2010).

uses ..... ExtCtrls;
procedure TForm1.Button1Click(Sender: TObject);
var
  TrayIcon1: TTrayIcon;
begin
  TrayIcon1 := TTrayIcon.Create(Application);
  TrayIcon1.Visible := true;
  TrayIcon1.BalloonTitle := IntToStr(TrayIcon1.BalloonTimeout);
  TrayIcon1.BalloonTimeout := 20000;
  TrayIcon1.BalloonHint := 'NiFiga';
  TrayIcon1.ShowBalloonHint;
end;

Пытался разобраться с модулями ExtCtrls и ShelAPI но, что-то не понял как инициализируется поле FData.uVersion