Как получить handle потока (TThread)?

procedure TLoader.AbortConnection;
begin
   FIdHttp.Socket.Close;
end;

public
    constructor Create(AStr:string);
    destructor Destroy; override;
    procedure AbortConnection;

(*12.03. принудительная остановка процесса загрузки*)
procedure TMain.Button3Click(Sender: TObject);
(*-------------------------------------*)
procedure Abord;
begin
  TLoader.AbortConnection;
end;
(*------------------------------------*)
begin
  Abord;
end;