spezielle adressen anpingen und anzeigen

[any_key]

aHoyHoy
(erst mal hallo... mein erster post)
so und jetzt zu dem was ich eigentlich will
es gibt ja viele seiten mit proxyserver listen
aber da man nie genau weiß welcher gerade mal ne gescheite geschwindigkeit hat oder überhaupt online ist wollte ich mir mal ne programm schreiben das so eine ip liste ein mal komplett anpingt und dann die einzelnen pings auflistet (und halt wenn nen server nicht antwortet irgendeine andere meldung)
so und das hab ich halt mal probiert und jetzt hab ich keine ahnung was daran nicht funktioniert
(weil hinter den servern oft sachen wie ports usw stehen soll alles hinter der ip selber weg)

Code:

procedure TForm1.Button1Click(Sender: TObject);
var
  i, durchgang : integer;

begin
liste := TStringList.Create;
liste.LoadFromFile (OpenDialog1.FileName);
  for i := 0 to liste.Count - 1 do Memo1.Lines.Add(copy(liste[i],1,pos(' ',liste[i]) - 1));
  durchgang := 1;
  for i := 1 to liste.count do
  durchgang := durchgang + 1;
  Edit1.Text := Memo1.Lines[durchgang - 1];
  IdIcmpClient1.Host := Memo1.Lines[durchgang];
   IdIcmpClient1.Ping;
   Application.ProcessMessages;
 end;

procedure TForm1.IdIcmpClient1Reply(ASender: TComponent;
  const AReplyStatus: TReplyStatus);
var
  sTime: String;
begin
  if (AReplyStatus.MsRoundTripTime = 0) then
    sTime := '<1'
  else
    sTime := '=';

  Listbox1.Items.Add(Format('%d bytes from %s: icmp_seq=%d ttl=%d time%s%d ms',
                            [AReplyStatus.BytesReceived,
                             AReplyStatus.FromIpAddress,
                             AReplyStatus.SequenceId,
                             AReplyStatus.TimeToLive,
                             sTime,
                             AReplyStatus.MsRoundTripTime]));
end;

procedure TForm1.Oeffnen1Click(Sender: TObject);
begin
OpenDialog1.Execute;
end;

end.

kann mir vllt jemand bei meinem problem helfen?