Zdarzenie OnStatus komponentu IdIcmpClient

Mam taki kodzik:

procedure TMainForm.PingerStatus(ASender: TObject;
  const AStatus: TIdStatus; const AStatusText: String);
begin
  case AStatus of
    hsResolving: Caption := 'analiza';
    hsConnecting: Caption := 'łączenie';
    hsConnected: Caption := 'połączony';
    hsDisconnecting: Caption := 'rozłączanie';
    hsDisconnected: Caption := 'rozłączony' ;
    hsStatusText: Caption := := '' {co tu ma być};
    ftpTransfer: lblCaption.Caption := 'transfer';
    ftpReady: lblCaption.Caption := 'gotowy';
    ftpAborted: lblCaption.Caption := 'akcja przerwana';
  end;
  Caption := AStatusText;
end;

Niby Caption powinien się zmieniać, ale się nie zmienia :-0 . Czemu tak się dzieje [???]

I jeszcze jedno pytanie: jaki powinien byc string w lini z [code]hsStatusText[/code]?

Spróbuj za linijką
[code]Caption := AStatusText;[/code]
wpisać
[code]Application.ProcessMessages[/code]

przejedź się po tym kodzie debugerem, sprawdź jakie wartości przyjmuje AStatus i nie będzie problemu.

wydaje mi się, że gdyby Szanowni Forumowicze nauczyli się korzystać z wyszukiwarki na 4p i z googla, to by odpadło 90% pytań, a z tych pozostałych 10% przy pomocy debugera samo rozwiązałoby się kolejne 90%. i został by 1% tego, co jest teraz.

tylko trochę pusto by było na forum...