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:

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
    TMyThread = class(TThread)
  protected
    procedure Execute; override;
  end;

  TForm1 = class(TForm)
    ButtonStart: TButton;
    ButtonStop: TButton;
    Label1: TLabel;
    procedure ButtonStartClick(Sender: TObject);
    procedure ButtonStopClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public

  end;



var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TMyThread.Execute;
  begin
   try
    showmessage('thread läuft !!!');
    sleep(3000);
   except
     on e: exception do begin
     showmessage('Fehler im Thread');
     end;
   end;
  end;

procedure TForm1.ButtonStartClick(Sender: TObject);
begin
  TestThread.Resume;
end;

procedure TForm1.ButtonStopClick(Sender: TObject);
begin
  TestThread.Suspend;
end;

procedure TForm1.FormCreate(Sender: TObject);
var TestThread: TMyThread;
begin
  TestThread := TMyThread.Create(True);
end;

end.					

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

var
 Tid : Cardinal;


procedure TestThread;
begin
 while true do
  begin
   sleep(3000);
   showmessage('sdfsdf');
  end;
end;

procedure ThreadStarten;
begin
 CreateThread(0, 0, @TestThread, nil, 0, Tid);
end;

procedure ThreadStoppen;
begin
 exitThread(tid);
end;