[bulldog]

в кнопке

Код:

Pay:=BOT.Create(True);
Pay.FreeOnTerminate := True;
Pay.Priority:=tpLOWEst;
Pay.Resume;

в потоке

Код:

type
  BUX = class(TThread)
    FUrl: String;
  private
    HTTP_BOT: TIdHTTP;
    h: Integer;
  protected
    constructor Create(CreateSuspended: Boolean; aUrl: String);
    procedure Execute; override;
    destructor Destroy; override;
    public
  end;

constructor BUX.Create(CreateSuspended: Boolean; aUrl, aLog, aPass: String);
begin
  inherited Create(CreateSuspended);
  FreeOnTerminate := True;
  Priority := tpLower;
  FUrl := aUrl;
  end;

procedure BOT.Execute;
var 
N: String;
  D: Integer;
  Otvet: String;
  Otvet1: String;
  g1: String;
KAKA: Integer;
begin
HTTP_BUX := TIdHTTP.Create(nil);
begin
      Otvet := HTTP_BOT.get('http://' + Сайт + N);
      Ur := парсит(Otvet);
      Otvet1 := HTTP_BOT.get('http://' + Сайт + Ur);
      h := SetTimeOutJS(Otvet1);
///
      HTTP_BOT.get('Сайт');
      Sleep(h);// h может быть от 10 секунд до ... 
      HTTP_BOT.get('http://' + Сайт + g1);
end;
end;