1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

Var 
  ThreadResult:Boolean;
  MyThread:Integer;

Function CheckUrl(url:String):Integer;
Begin
 Result:=0;
 ...
 ThreadResult:=True/False
 MyThread:=0;
End;

procedure TForm1.Button1Click(Sender: TObject);
Var i:Integer;
    ThreadId:Cardinal;
    ThreadUrl:String;
begin

For i:=0 to UrlStringlist.Count-1 do

    BEGIN 
     ThreadUrl:=UrlStringlist.Strings[i]; //z.B. 'http://www.website.com'

     Mythread := BeginThread(nil, 0, @CheckUrl, Pchar(ThreadUrl), 0, ThreadId);

     While MyThread<>0 do
           BEGIN
            //Ausgabe der bereits verstrichenen Zeit
           END;

     IF not(ThreadResult) then
        ListBox1.Items.Add('Url existiert nicht');
         
     CloseHandle(MyThread);

    END;
     
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:

unit Unit2;

interface

uses
  Classes, SysUtils;

type
  TMyThread = class(TThread)
  private
    ThreadStrg:TStringlist;
    ThreadProgress:Integer;
    ThreadMaxCount:Integer;
  protected
    Procedure Execute; override;
  public
    Procedure GetProgress(Var actpos,maxval:Integer);
    Constructor Create(Var Strg:TStringlist);
  end;

implementation

//Abfrage des Fortschritts in Unit1
Procedure TMyThread.GetProgress(Var actpos, maxval:Integer);
Begin
 Actpos:=ThreadProgress;
 Maxval:=ThreadMaxCount;
End;


Constructor TMyThread.Create(Var Strg:TStringlist);
Begin
 ThreadStrg:=Strg;
 ThreadProgress:=0;
 ThreadMaxCount:=ThreadStrg.Count;

 FreeOnTerminate := True;
  inherited Create(True);
End;


procedure TMyThread.Execute;
Var i:Integer;
begin

 For i:=0 to ThreadStrg.Count-1 do
     BEGIN
     IF FileExists(ThreadStrg.Strings[i]) then
        BEGIN
         //DoOutput
         //Synchronize(DoOutput);
        END;
     Sleep(500); //Nur zur Demo
     ThreadProgress:=i+1;

     IF Terminated then
        Break;

    END;
end;

end.					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:

unit Unit1;

interface
...
  public
   Procedure Done(Sender:TObject);
   Procedure ShowProgress;
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  MyThread:TMyThread;
  Strglist:TStringlist;
  Fortschritt:Integer=0;
  MaxVal:Integer;

implementation

{$R *.dfm}

//Zeigt den Fortschritt des Threads
Procedure TForm1.ShowProgress;
Begin
 IF Assigned(MyThread) then
    BEGIN
     MyThread.GetProgress(Fortschritt,MaxVal);
     Form1.Caption:=IntToStr(Fortschritt)+' '+IntToStr(MaxVal);
    END;
End;

//Thread wurde beendet
Procedure TForm1.Done(Sender:TObject);
Begin
 ShowProgress;
 MyThread:=nil; //MyThread.Free friert Formular ein
 ShowMessage('Fertig');
End;

//Button zum Starten des Threads
procedure TForm1.Button1Click(Sender: TObject);
begin
 IF not(Assigned(MyThread)) then
    BEGIN
     MyThread:=TMyThread.Create(Strglist);
     MyThread.OnTerminate:=Done;
     MyThread.Resume;
    END;
end;

//Button zum Abbrechen des laufenden Threads
procedure TForm1.Button2Click(Sender: TObject);
begin
 IF Assigned(MyThread) then
   BEGIN
    MyThread.Suspend;
    IF MessageDlg('Wirklich abbrechen?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
       MyThread.Terminate;
    MyThread.Resume;
   END;
end;

//Timer für die Fortschrittsanzeige
procedure TForm1.Timer1Timer(Sender: TObject);
begin
 IF Assigned(Mythread) then ShowProgress;
end;

end.					

1:

ThreadStrg:=Strg;					

1:

ThreadStrg.Assign(Strg);					

1:
2:

if i mod 10 = 0 then
  Synchronize(UpdateCaption);					

1:

ThreadStrg.Assign(Strg);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

Constructor TMyThread.Create(Strg:TStringlist);
Begin
 ThreadStrg:=TStringlist.Create; //Create hat gefehlt
 ThreadStrg.Assign(Strg);
 ThreadProgress:=0;
 ThreadMaxCount:=ThreadStrg.Count;

 FreeOnTerminate := True;
  inherited Create(True);
End;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:

public
 Constructor Create(Strg:TStrings);
 Destructor Destroy; override;
end;

...

Constructor TMyThread.Create(Strg:TStringlist);
Begin
 ThreadStrg:=TStringlist.Create; //Create hat gefehlt
 ThreadStrg.Assign(Strg);
 ThreadProgress:=0;
 ThreadMaxCount:=ThreadStrg.Count;

 FreeOnTerminate := True;
  inherited Create(True);
End; 

Destructor TMyThread.Destroy;
Begin
 ThreadStrg.Free;
End;