Threads und StringList

[IMPEGA]

Erstmal,
vielen Dank für deine Vorlage.
Leider, bin ich mit der Vorlage noch mehr überfordert. Wie gesagt, Coden ist nur ein Hobby von mir.
Ich wage mich zwar an neue Themen ran, jedoch ist mein Wissen nicht gerade professionell.
Dein Muster müsste ich wieder komplett abarbeiten, viel dazu lernen.
Bei meinem Code verstehe ich das Meiste. Ich weiß zwar nicht, wie man es wirklich korrekt umsetzen soll, verstehen den Code tue ich aber schon.
Das meiste davon habe ich mir nämlich selbst ausgedacht. (Natürlich, mit der freundlichen Unterstützung von Google, und viel Lesen)
Ich bin sehr dankbar für die Vorlage, muss aber auf dem Boden bleiben und in meinen Möglichkeiten eine Lösung suchen.
Wenn es erstmal funktioniert, kann ich versuchen mich weiter zu orientieren.
Dich einfach nur kopieren, ohne Sinn und Verstand, mag ich nicht, möchte es auch nicht.

Also, stelle ich erstmal weitere Fragen zu meinem Code.
1: Darf ich einfach zweite CriticalSection deklarieren ??
2: Wie kann ich das hier besser umsetzen (Idee mit Erklärung, oder kleiner Muster wäre super) Dec(Form1.ActiveThreads); Form1.UpdateLabelActiveThreads;
3: Die StringList erstelle ich nun im Thread, eine pro Job und lösche sie, wen fertig. Gibt es damit Ärger? oder darf ich es so machen?

Delphi-Quellcode:

procedure TURLCheckerThread.Execute;
var
  FErgebnis : TstringList;               // --> Frage Nr. 3
  Url       : string;
  Http      : TIdHTTP;
begin
  Http := TIdHTTP.Create(nil);
    try
      while not Terminated and not FShouldStop^ do
        begin
          Url := '';
          FCS1.Acquire;                         // --> Frage Nr. 1
            try
              if FUrlList.Count > 0 then
                begin
                  Url := FUrlList[0];
                  FUrlList.Delete(0);
                end;
            finally
              FCS1.Release;                   // --> Frage Nr. 1
            end;

          if Url = '' then Break;

          Sleep(Random(2000)); {Hier kommt später meine Aufgabe}

          FErgebnis := TStringList.Create;                                       // --> Frage Nr. 3
            try
              try
    //          Http.Head(Url);

                FCS2.Acquire;                        // --> Frage Nr. 1
                  try
                    FErgebnis.Add('OK: ' + Url);    
                    FErgebnis.Add('Zweite Zeile');   
                    FErgebnis.Add('Dritte Zeile');   
                  finally
                    FCS2.Release;                   // --> Frage Nr. 1
                  end;

                UpdateStatus(FErgebnis);                                         // --> Frage Nr. 3
              except
                on E: Exception do
                  begin
                    FErgebnis.Add('FAIL: ' + Url + ' - ' + E.Message);
                    UpdateStatus(FErgebnis);
                  end;
              end;
            finally
              FreeAndNil(FErgebnis);                                             // --> Frage Nr. 3  
            end;

          TThread.Synchronize(nil, procedure
            begin
              Dec(Form1.IdleJobs);     // --> Frage Nr. 2
              Form1.UpdateLabelJobs;   // --> Frage Nr. 2

              Inc(Form1.JobsFinished);    // --> Frage Nr. 2
              Form1.UpdateLabelFinished;  // --> Frage Nr. 2 
            end);
        end;
    finally
      FreeAndNil(FErgebnis);
      FreeAndNil(Http);

      TThread.Synchronize(nil, procedure
        begin
          Dec(Form1.ActiveThreads);        // --> Frage Nr. 2
          Form1.UpdateLabelActiveThreads;  // --> Frage Nr. 2
        end);
    end;
end;

Falls ich damit kaum zum Erfolg kommen sollte, bitte auch aufklären warum, dann muss ich neuen Ansatz suchen.
Damit komme ich aber einigermaßen klar, also wäre es schon mein Favorit.
Auch wenns nicht perfekt ist.

.