[Deadwoolf]

Всем привет, пытаюсь прикрутить поток в мониторинг ip адресов
собственно выдает ошибку вот в этом коде:

Код:

procedure TMyThread.UpdateCaption;
var
IdIcmpClient: TIdIcmpClient;
Mycomponent:Tcomponent;
ip:string;
begin
ip:='192.168.0.1';
SUI:=2;
while SUI <>4 do
begin
IdIcmpClient:=TIdIcmpClient.Create(nil);
try
IdIcmpClient.Host:=ip;
IdIcmpClient.Ping();
 MyComponent := TRadiobutton('Radiobutton'+inttostr(SUI));
 if MyComponent <> nil then
   if idICMPClient.ReplyStatus.BytesReceived <> 0 then
begin
    form1.RadioButton2.Color:=CLlime; //тут пробовал по разному
    end
    else
    begin
    Tradiobutton(Mycomponent).Color:=CLRED;
    end;
 Tradiobutton(Mycomponent).Hint:=IdIcmpClient.Host;
 Tradiobutton(Mycomponent).ShowHint:=true;
  SUI:=SUI+1;
  if SUI =3 then ip:='192.168.0.2';
  if SUI =4 then
  finally

но так как с потоками не сталкивался - у меня недоумение, ругается на строчку с изменением цвета. ошибка чтения памяти delphi 7

Заранее благодарен.