type
  TLoader = class(TThread)
  private
     FUrl:string;
     FHtml:string;
     FIdHttp:TidHTTP;
     FThreadHandle:THandle;
  protected
    procedure Execute; override;
    procedure ShowPage; 
    function LoadHtmlPage(const Url:string):string;
  public 
    constructor Create(AStr:string);
    destructor Destroy; override;
  end;
....................

constructor TLoader.Create;
begin
  inherited Create(False);
  FIdHttp := TIdHTTP.Create(nil);
  FreeOnTerminate := True;
  Self.Priority := tpNormal;
  FUrl:=AStr;
  FThreadHandle:=(*вот тут непонятно, где взять значение дескриптора?*);
end;
..............
procedure TLoader.ShowPage;
begin
   Main.Label3.Caption:='Page Loaded';
   Main.Memo1.Lines.Add(FHtml);
   Main.Label2.Caption:=IntToStr(FThreadHandle); (*тут нужно отобразить дескриптор потока*)
end;

var 
  HandleChange: THandle;                       
begin 
  HandleChange := 
    FindFirstChangeNotification( 
      PChar(FPath),                            
      False,                                   
      FILE_NOTIFY_CHANGE_FILE_NAME +          
      FILE_NOTIFY_CHANGE_ATTRIBUTES );        //но это не то что нужно