в общем есть такая ситуация.

привожу код

program Project_Threads;

uses
  Windows,
  Forms,
  Classes,
  Threads in 'Threads.pas' {Form1};

{$R *.res}

begin
  Application.Initialize;
  h1 := GetCurrentThread;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

потом где-то в модуле threads.pas

var
.....
  h1,h2:THandle;
  id2:DWord;
  ec1:dword;

procedure TForm1.Button2Click(Sender: TObject);
begin
  h2:=CreateThread(nil,0,@GetFromFile,nil,0,id2);
end;

procedure GetFromFile;
begin
       GetExitCodeThread(h1,ec1);
       TerminateThread(h1,ec1);
end;

То есть мне нужно, чтобы второй поток убил первый, но не получается. Какие есть варианты?