Problem mit Server Pinger

[sakura]

Er hat doch das meiste, Leute Seine Frage bezog sich auf ein anderes Problem, als das direkte Pingen

Code:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  [color=#ec0000][s]IdIcmpClient1.Host := ListBox1.Items.Text;[/s]
  if ListBox1.ItemIndex < 0 then
    Exit;
  IdIcmpClient1.Host := ListBox1.Items[ListBox1.ItemIndex]; [/color]
  IdIcmpClient1.Ping(IntToStr(timeout)); 
end;

......