Code:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

procedure incedit1; stdcall;

procedure incedit2; stdcall;

type

TForm1 = class(TForm)

   Button1: TButton;

   Edit1: TEdit;

   Edit2: TEdit;

   Button6: TButton;

   Button7: TButton;

   Button2: TButton;

   Button3: TButton;

   Button5: TButton;

   Button4: TButton;

   procedure Button1Click(Sender: TObject);

   procedure Button6Click(Sender: TObject);

   procedure Button7Click(Sender: TObject);

   procedure Button4Click(Sender: TObject);

   procedure Button5Click(Sender: TObject);

   procedure Button2Click(Sender: TObject);

   procedure Button3Click(Sender: TObject);

private

   { Private declarations }

public

   { Public declarations }

end;

var

Form1: TForm1;

implementation

var

th1, th2: cardinal;

h1, h2: integer;

procedure incedit1;

var

i: integer;

begin

i := 0;

while true do

begin

   form1.edit1.text := inttostr(i);

   i := i + 1;

end;

end;

procedure incedit2;

var

i: integer;

begin

i := 0;

while true do

begin

   form1.edit2.text := inttostr(i);

   i := i + 1;

end;

end;

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

begin

h1 := beginthread(nil, 1024, @incedit1, nil, 0, th1);

h2 := beginthread(nil, 1024, @incedit2, nil, 0, th2);

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

terminatethread(h1, 0);

end;

procedure TForm1.Button7Click(Sender: TObject);

begin

terminatethread(h2, 0);

end;

procedure TForm1.Button4Click(Sender: TObject);

begin

resumethread(h1);

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

resumethread(h2);

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

suspendthread(h1);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

suspendthread(h2);

end;

end.

Code:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

procedure printh(p: pointer); stdcall;

type

TForm1 = class(TForm)

   Button1: TButton;

   procedure Button1Click(Sender: TObject);

private

   { Private declarations }

public

   { Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure printh(p: pointer); stdcall;

begin

TForm1(p).caption := 'Hello from thread';

ExitThread(0);

end;

procedure TForm1.Button1Click(Sender: TObject);

var

h1: cardinal;

begin

createthread(nil, 128, @printh, self, 0, h1);

end;

end.