Как получить доступ к методу потока(TThread) из основного потока?

[Pcrepair]

Добрый день. Есть код
Основной поток:

unit uMain;
interface
uses
  ........

type
   .......

var
  Main: TMain;

implementation
uses uLoader;
{$R *.dfm}

(*Запуск Потока загрузки страницы*)
procedure TMain.Button1Click(Sender: TObject);
var ThreadLoder: TLoader;
begin
  ThreadLoder:=Tloader.Create(Edit1.Text);
end;

(*Принудительная остановка процесса загрузки*)
procedure TMain.Button2Click(Sender: TObject);
begin
  //вот тут непонятно, как вызвать метод AbortConnection из запущенного потока  
end;

Поток загрузчика:

unit uLoader;
interface
uses
  Classes, idHTTP, SysUtils, Dialogs,Windows;

type
  TLoader = class(TThread) 
  private
     FUrl:string; 
     FHtml:string;
     FIdHttp:TidHTTP;

  protected
    procedure Execute; override; 
    function LoadHtmlPage(const Url:string):string;
  public
    constructor Create(AStr:string);
    destructor Destroy; override;
    procedure AbortConnection;
  end;

implementation

constructor TLoader.Create(AStr:string);
begin
  inherited Create(False);         (*Поток создаем в состоянии ЗАПУСК*)
  FIdHttp := TIdHTTP.Create(nil);  (*тут же создаем загрузчик*)
  FreeOnTerminate := True;         (* Поток освободит ресурсы при окончании работы*)
  Priority := tpNormal;
  FUrl:=AStr;
end;

destructor TLoader.Destroy;
begin
  FreeAndNil(FIdHttp);
  inherited Destroy; 
end;

(*принудительное отключение TidHttp*)
procedure TLoader.AbortConnection;
begin
 if Assigned(FIdHttp) then  (*если загрузчик запущен*)
 begin
   FIdHttp.Socket.Close;
 end;
end;

function TLoader.LoadHtmlPage(const Url:string):string;
begin
 try
   Result:=FIdHttp.Get(Url);
 except
   Exit;
 end;
end;

procedure TLoader.Execute;
begin
   FHtml:=LoadHtmlPage(FUrl);
end;

end.

Вопрос: как вызвать AbortConnection из потока, для принудительного завершения работы TidHttp?

[evg_m]

Как получить доступ к методу потока(TThread) из основного потока?

основной поток должен знать (точнее помнить) что он запустил
(глобальная переменная для этого вполне подойдет)

var
  mythread: TLoader;

а лучше private данные

 Tform1 =class(TFrom)
..
  private
  mythread: TLoader;

mythread:=TLoader.Create;
mythread.Abortconnection;

я знаю ответ как вызвать, но не знаю ответа как это будет работать.

[phomm]

Никак. В модуле формы и в методах формы Вам недоступна переменная, что ссылается на экземпляр потока, т.к. она ЛОКАЛЬНАЯ переменная только в одном методе!
пс. Сорри, не перегрузил страницу перед постом...

[Pcrepair]

все понятно, всем спасибо.