DNS und kein Ende TARecord

[john2000]

Hallo zum 2. Mal,

meine erste Frage --> hat sich erledigt.

Habe es nun so:

Delphi-Quellcode:

procedure Btn_QueryClick(Sender: TObject);

  public

                           end;
var
  DNS_Main: TDNS_Main;

implementation

{$R *.DFM}
 procedure TDNS_Main.Btn_QueryClick(Sender: TObject);

var
   DNS : TIdDNSResolver;
   Question :string;
   Value:string;
   AR:TARecord;
   Back : string;
begin
    Question := Ed_Query.Text;
     DNS := TIdDNSResolver.Create(self);
     DNS.Host := '217.237.151.33';
     DNS.QueryRecords := [qtA];
      DNS.Active := True;
      DNS.Resolve(Question);
      Value := '';

     AR:=DNS.QueryResult.Items[0] as TARecord;
       Value := Value + AR.IPAddress;
                    back:=value;
             Memo_Result.Lines.Add(Back);

       end;


end.

Habe jetzt das Problem, das ich wenn ich www.google.de auflösen will einen Fehler bekomme:
Ungültige Typenumwandlung
Gebe ich aber www.glawion.de oder aber google.de ein dann erhalte ich ein korrektes Ergebniss.

Kann mir jemand sagen wo der Fehler liegt.


mfg
John2000