Странные передачи данных

[bulldog5293]

Сидя под отладчиком решил посмотреть что я делаю не так, поставив маркер на HTTP_BUX.get(Url_Pay + 'login.php?r=',s); и когда дошёл процеcc до него в self сайт из URL_Pay, логин из Login, пароль из Password, 0, $D1С9F8, nil, nil и дальше меня перебросила на

procedure TIdCustomHTTP.Get(AURL: string; AResponseContent: TStream);
begin
  Assert(AResponseContent<>nil);
  Get(AURL, AResponseContent, []);
end;

но из-за чего так и не понял. код у меня такой

type
  BOT = class(TThread)
  private
Url_Pay:String;
Login:String;
Password:String;
w : integer; 
CS:TCriticalSection;
HTTP_BOT:TIdHTTP;
IdCookieManager1_Pay: TIdCookieManager;
 protected
constructor Create(CreateSuspended: Boolean; aUrl, aLog, aPass: String);
procedure Execute; override;
      procedure capcha;
  public
  end;

constructor Bot.Create(CreateSuspended: Boolean; aUrl, aLog, aPass: String);
begin
  inherited Create(CreateSuspended);
  FreeOnTerminate:= True;
  Priority:= tpLower;
  Url_Pay:= aUrl;
  Login:= aLog;
  Password:= aPass;
  http_BUX:= TIdHTTP.Create(nil);
  IdCookieManager1_Pay:= TIdCookieManager.Create(nil);
  end;

procedure Bot.Execute;
var
w : integer; 
s:TStringStream;
  begin
  CS:=TCriticalSection.Create;
  s:=TStringStream.Create;
begin
 CS.Enter;
 URL_Pay:= 'http://' + Form2.Listview1.Items[w].SubItems[0];
 Login:= Form2.Listview1.Items[w].SubItems[1];
 Password:= Form2.Listview1.Items[w].SubItems[2];
 CS.Leave;
begin
HTTP_Bot.get(Url_Pay + 'login.php?r=',s);

[Пепел Феникса]

ну это нормально, это код компонента idhttp.

[bulldog5293]

А что он хочет я так и не понял

[Пепел Феникса]

ничего, вы же сами в него зашли отладкой

[bulldog5293]

Спс, но без отладки меня кидает сюда

procedure TIdCustomHTTP.Get(AURL: string; AResponseContent: TStream;
  AIgnoreReplies: array of SmallInt);
begin
  Assert(AResponseContent<>nil);

  DoRequest(Id_HTTPMethodGet, AURL, nil, AResponseContent, AIgnoreReplies);
end;

[Пепел Феникса]

HTTP_Bot.get(Url_Pay + 'login.php?r=',s);

затем

procedure TIdCustomHTTP.Get(AURL: string; AResponseContent: TStream);
begin
  Assert(AResponseContent<>nil);
  Get(AURL, AResponseContent, []);
end;

затем с выделеной строки

procedure TIdCustomHTTP.Get(AURL: string; AResponseContent: TStream;
  AIgnoreReplies: array of SmallInt);
begin
  Assert(AResponseContent<>nil);

  DoRequest(Id_HTTPMethodGet, AURL, nil, AResponseContent, AIgnoreReplies);
end;

[bulldog5293]

да, скажи если не трудно, от чего это может быть?

[Пепел Феникса]

это нормально, обычные вызовы других методов класса

[bulldog5293]

Но у меня после этого поток останавливается

[Пепел Феникса]

может потому что ждет ответа?
вообще смотреть снифером надо такое, ибо не пойдете же вы в дебри WinSock.
а вообще бывает что при отладке сообщение об ошибке не видно.