THGG Status - Problem

Mam problem związany z komponentem THGG ,a dokładnie ze statusem - mianowicie ,mam w Timerze ustawione ,że co 1 sek program ma zmieniać status zalogowanego na niedostępny i następnie od razu na dostępnego i tak w kółko (po naciśnięciu Buttona) :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
HGG1.Status := usInvisible;
HGG1.Status := usAvailable;
end;

Ale problem jest taki ,że albo program tylko parę razy wykona tę czynności (najwięcej 9) ,albo w ogóle nie wykona tej czynności - nie wiem czym to jest spowodowane ,może kaprysem programu ? :-D ;-(

Z góry dziękuję i pozdrawiam ;]

Może nie nadąża .. zwiększ czas do 3 sekund i sprawdź.