Создание потоков через CreateThread

var  i:integer=0;
  thread1,thread2,id:longword;
 
procedure test;
var k:Integer;
begin
  for k:=0 to 10 do
  Form1.label1.Caption:=IntToStr(k);
EndThread(0);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
thread1:=beginthread(nil,0,addr(test),nil,0,id);
thread2:=beginthread(nil,0,addr(test),nil,0,id);
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Edit2: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  n,f,i:integer;
  ID:THandle;
 
implementation
 
function Inkrement(n:integer):integer;
 var r:integer;
 begin
   for r:=1 to n do
     begin
     Result:=(n);
     n:=n+1;
     end;
 end;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  n:=strtoint(edit1.text);
  f:=strtoint(edit2.Text);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
memo1.SelText:=inttostr(Inkrement(n)) ;
for i:=1 to f do
memo1.SelText:=inttostr(createthread(nil,0,@Inkrement,nil,0,ID));
 
for i:=f downto 1 do
memo2.SelText:=floattostr(createthread(nil,0,@Inkrement,nil,0,ID));
 
 
end;
 
end.

function Inkrement(n:integer):integer;

procedure Inkrement(n:integer);

memo1.SelText:=inttostr(createthread(nil,0,@Inkrement,nil,0,ID));

ThreadHandle:=createthread(nil,0,@Inkrement,{возможно здесь нужно @}ThreadParam,0,ThreadID));

ThreadHandle: THandle; // хендл потока
ThreadParam: integer; // параметр передаваемый функции потока
ThreadID: dword; // идентификатор потока

procedure Inkrement(n:integer);

procedure Inkrement(var n:integer);

ResumeThread(ThreadHandle);
ThreadHandle:=createthread(nil,0,@Inkrement,@n,CREATE_SUSPENDED,ID);
 terminatethread(ThreadHandle,0);
 suspendthread(ThreadHandle);

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    Button2: TButton;
    Memo1: TMemo;
    Memo2: TMemo;
    Edit2: TEdit;
    Button3: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  n,f,i:integer;
  ThreadHandle2,ThreadHandle: THandle;
  ID:DWord;
 
implementation
 
procedure Inkrement(var n:integer);
 var r:integer;
 begin
   for r:=n to n+n do
     begin
 
     n:=n+1;
     end;
 end;
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  n:=strtoint(edit1.text);
  f:=strtoint(edit2.Text);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
//memo1.SelText:=inttostr(Inkrement(n)) ;
ResumeThread(ThreadHandle);
ThreadHandle:=createthread(nil,0,@Inkrement,@n,CREATE_SUSPENDED,ID);
//ThreadHandle.Terminate  ;
//TerminateThread(ThreadHandle);
//ThreadHandle.free;
 
 suspendthread(ThreadHandle);
for i:=1 to f do
memo1.SelText:=floattostr(createthread(nil,0,@Inkrement,nil,CREATE_SUSPENDED,ID));
 
for i:=f downto 1 do
memo2.SelText:=floattostr(createthread(nil,0,@Inkrement,nil,0,ID));
 
 
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
ThreadHandle2:=createthread(nil,0,@Inkrement,@n,CREATE_SUSPENDED,ID);
 suspendthread(ThreadHandle2);
 ResumeThread(ThreadHandle2);
 TerminateThread(ThreadHandle2,0);
end;
 
end.