Как создавать потоки без класса TThread?

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;

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);

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.