TIdDNSResolver Problem - Connection reset by peer

[bigkahoona]

Hi Leute,

ich habe ein Problem mit TIdDNSResolver. Ich will eine Liste von Domains aus einem StringGrid prüfen:

http://gavajda.de/pics/statuscheck.jpg

Das versuche ich mit folgendem Code:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var
  resolvecount: Integer;
begin
  with IdDNSResolver1 do
   begin
     ClearInternalQuery;
     IdDNSResolver1.Host := dns1;                 //dns1 wird über ein ini file geladen, momentan ein T-Online DNS Server
       for resolvecount := 1  to gridcount do     //gridcount ist die Anzahl der Zeilen des StringGrids
        begin 
         IdDNSResolver1.Resolve(StringGrid1.Cells[1,resolvecount]);
         StringGrid1.Cells[2,resolvecount] := QueryResult.Items[resolvecount].Name;
        end;
   end;
end;

Aber alles was ich bekomme ist ein

http://gavajda.de/pics/10054error.jpg

Kann mir wer auf die Sprünge helfen was ich falsch mache? Was fehlt?

Danke im Voraus.