1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

type

  TMyPing = class(TThread)

  private

    { Private declarations }

  protected

     procedure Execute; override;

  public

  end;





implementation

procedure TMyPing.Execute;

var

 i: Integer;

begin

 frmNachrichten.IdIcmpClient1.Host := strName;

 for i := 1 to 1 do

 begin

 frmNachrichten.AntiFreeze.;

  try

   frmNachrichten.IdIcmpClient1.Ping;

   frmNachrichten.ListView1.Items.Item[intHostNr].ImageIndex:=1;

  except;

  frmNachrichten.ListView1.Items.Item[intHostNr].ImageIndex:=0;

  end;

  frmNachrichten.AntiFreeze.Process;

 end;