Thread Problem - Stack overflow

[emploi]

Danke für die Antworten!

Ich hab mein Stack-Overflow Problem gelöst(glaub ich).
Hab das Array für die URL's durch ne StringList ersetzt und
jetzt gibt es damit überhaupt keine probleme mehr.

Aber mal ne andere Frage. ich habe meine Execute Methode vom
Thread ein wenig umgebaut um eine eventuelle Exception zu bearbeiten
ist das sinnvoll so oder zu performance aufwändig?

Code:

procedure CheckThread.Execute;
var IdHttp1 : TIdHTTP;
    Request : TStringList;
    MyStream : TMemoryStream;
    done : boolean;
begin
  WHILE NOT(done) DO
  BEGIN
    IdHttp1 := TIdHTTP.Create(nil);
    Request := TStringList.Create;
    Answer := TStringList.Create;
    MyStream := TMemoryStream.Create;
    TRY
        done := False;
        idHttp1.RedirectMaximum := 15;
        idHttp1.HandleRedirects := True;
        TRY
          IdHttp1.Request.ContentType := 'application/x-www-form-urlencoded';
          Request.Add('&PHPSESSID='+SID);
          IdHttp1.Post(url,Request,MyStream);
          MyStream.WriteBuffer(#0' ', 1);
          MyStream.Position := 0;
          ...
          done := True;
        EXCEPT
        ON Exception DO
           done := False;
        END;
        IF done THEN
           Synchronize(SendUrl);
    FINALLY
      MyStream.Free;
      Request.Free;
      IdHttp1.Free;
    END;
  END;
END;

Würd mich über ne Antwort sehr freuen!

mfg emploi