Indy freeze Problem

[Novo]

hmm was ist da falsch?

Delphi-Quellcode:

function ThreadedHTTP(URL:string):string;
var
  Thttp : TidHTTP;
  QuellCode : string;
begin
  Thttp := TidHTTP.Create (nil);
   try
    QuellCode := Thttp.Get(URL);
   finally
    Thttp.Free;
    result := QuellCode;
  End
End;

und dann:

Delphi-Quellcode:

QuellCodeTechnobase := ThreadedHTTP('http://www.technobase.fm');
application.ProcessMessages;
QuellCodeTrancebase := ThreadedHTTP('http://www.trancebase.fm');
application.ProcessMessages;
QuellCodeHardbase := ThreadedHTTP('http://www.hardbase.fm');
application.ProcessMessages;
QuellCodeHousetime := ThreadedHTTP('http://www.housetime.fm');