Не отправляется запрос

[nibufep]

Первый запрос отправляется нормально, а второй не в какую не хочет, не мойму что не так?

begin
try
Http:=TIdHTTP.Create(nil);
data:= TStringList.Create;

data.Add('pass='+edit1.Text);
html:=http.Post('http://', data);
if pos(' ',html)<>0 or pos(' ',html) then begin
Sender.Synchronize(error1);
end else begin
html:=http.Get('http://');
memo1.Text:=html;
end;
except
Sender.Synchronize(error);
end;
data.Free;
http.Free;
end;

[indexx]

or pos(' ',html)<>0 then...
Условия, объединяемые оператором or желательно заключать в скобки

[nibufep]

Так?

if (pos('',html)<>0) or (pos('',html)<>0) then begin

[indexx]

Так. Но не гарантирую что проблемы сразу исчезнут. Я лишь указал на явные ошибки/недочёты.

[nibufep]

да, проблема не решилась.

[indexx]

Нужно смотреть весь проект. Ошибка может быть не тут.

[nibufep]

Сообщение от indexx

Нужно смотреть весь проект. Ошибка может быть не тут.

ошибка тут, в проекте только эта процедура.

[indexx]

в проекте только эта процедура

А процедура синхронизации волшебным образом испарилась? Ладно ищи сам ошибку, коли не желаешь чтоб тебе помогли.

[nibufep]

var
  Form1: TForm1;
  http:tidhttp;
  html:string;
  data:TStringList;

procedure TForm1.error;
begin
showmessage('Ошибка.');
end;

procedure TForm1.error1;
begin
showmessage('Ошибка.');
end;

procedure TForm1.IdThreadComponent1Run(Sender: TIdThreadComponent);
begin
try
Http:=TIdHTTP.Create(nil);
data:= TStringList.Create;

data.Add('pass='+edit1.Text);
html:=http.Post('http://', data);
if (pos('',html)<>0) or (pos('',html)<>0) then begin
Sender.Synchronize(error1);
end else begin
html:=http.Get('http://');
memo1.Text:=html;
end;
except
Sender.Synchronize(error);
end;
data.Free;
http.Free;
IdThreadComponent1.Stop;
end;

[indexx]

Забудь о такой методике синхронизации. С инди это не прокатывает. Можешь выводить сообщения прям внутри процедуры. На синхронизации у тебя всё и сыпется.