почему

[tonyr]

выдает ошибка в этом коде в строке end.


procedure TForm1.Button1Click(Sender: TObject);
var
p:Tstrings;
i:string;
begin
p:=Tstringlist.Create;
p.Add('method=getInfo');
p.Add('key='+edit1.Text);
p.Add('user='+edit2.Text);
i:=Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', p);
if Pos('<result>0</result>',i) <>0 then
ShowMessage('Неправильный auth_key')
else

end;



procedure TForm1.Button2Click(Sender: TObject);
var
Http : Tid[Ссылки могут видеть только зарегистрированные и активированные пользователи]
CM : TidCookieManager;
Data : TStringList;
s, g : String;
begin
try
Http := TId[Ссылки могут видеть только зарегистрированные и активированные пользователи](Self);
Data := TStringList.Create;
CM := TidCookieManager.Create(Http);
[Ссылки могут видеть только зарегистрированные и активированные пользователи] := true;
[Ссылки могут видеть только зарегистрированные и активированные пользователи] := CM;
[Ссылки могут видеть только зарегистрированные и активированные пользователи] := true;

[Ссылки могут видеть только зарегистрированные и активированные пользователи]'109.234.156.250';
[Ссылки могут видеть только зарегистрированные и активированные пользователи]'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:2.0) Gecko/20100101 Firefox/4.0';
[Ссылки могут видеть только зарегистрированные и активированные пользователи]'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
[Ссылки могут видеть только зарегистрированные и активированные пользователи]'ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3';
[Ссылки могут видеть только зарегистрированные и активированные пользователи]'windows-1251,utf-8;q=0.7,*;q=0.7';
[Ссылки могут видеть только зарегистрированные и активированные пользователи]'[Ссылки могут видеть только зарегистрированные и активированные пользователи]';


Data.Add('method=office');
Data.Add('sig=4b4d194a083007aa538f49d2a0cd6b5c');
Data.Add('key=' + Edit2.Text);
Data.Add('getidea=1');
Data.Add('user=' + Edit1.Text);


s := [Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', Data);


g:=copy(s,pos('<money>',s)+length('<money>'),pos('</money>',s)-pos('<money>',s)-length('<money>'));
Label1.Caption:=g;
finally
Data.Free;
CM.Free;
[Ссылки могут видеть только зарегистрированные и активированные пользователи]
end;

end.

[VeTaL_UA]

Я так понимаю, что код скопипастеный... Смотри ниже объяснение:
procedure TForm1.Button1Click(Sender: TObject); //Процедура нажатия на первую кнопку
var //Объявляем переменные
p:Tstrings;
i:string;
begin //Начинается исполняемый код этой процедуры
p:=Tstringlist.Create; //Создаем String List
//Добавляем в него данные Request'а
p.Add('method=getInfo');
p.Add('key='+edit1.Text);
p.Add('user='+edit2.Text);
i:=Id[Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', p); //Отправляем Post запрос
if Pos('<result>0</result>',i)<>0 then //Если в полученном ответе есть '<result>0</result>', тогда
begin
ShowMessage('Неправильный auth_key'); //Выдаем окошко с ошибкой
end;
end; //Заканчивается исполняемый код данной процедуры

procedure TForm1.Button2Click(Sender: TObject); //Процедура нажатия на вторую кнопку
var //Объявляем переменные
Http : Tid[Ссылки могут видеть только зарегистрированные и активированные пользователи]
CM : TidCookieManager;
Data : TStringList;
s, g : String;
begin //Начинается исполняемый код этой процедуры
try //Пробуем исполнить код ниже
{IdHTTP Create and Setting}
Http := TId[Ссылки могут видеть только зарегистрированные и активированные пользователи](Self); //Создаем IdHTTP
Data := TStringList.Create; //Создаем String List
CM := TidCookieManager.Create(Http); //Создаем Cookie Manager
[Ссылки могут видеть только зарегистрированные и активированные пользователи] := true; //Разрешаем IdHTTP использовать Cookie
[Ссылки могут видеть только зарегистрированные и активированные пользователи] := CM; //Указываем IdHTTP на Cookie Manager
[Ссылки могут видеть только зарегистрированные и активированные пользователи] := true; //Разрешаем IdHTTP переходить по Redirect'у
{Indy Request Setting}
[Ссылки могут видеть только зарегистрированные и активированные пользователи]'109.234.156.250';
[Ссылки могут видеть только зарегистрированные и активированные пользователи]'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:2.0) Gecko/20100101 Firefox/4.0';
[Ссылки могут видеть только зарегистрированные и активированные пользователи]'text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8';
[Ссылки могут видеть только зарегистрированные и активированные пользователи]'ru-ru,ru;q=0.8,en-us;q=0.5,en;q=0.3';
[Ссылки могут видеть только зарегистрированные и активированные пользователи]'windows-1251,utf-8;q=0.7,*;q=0.7';
[Ссылки могут видеть только зарегистрированные и активированные пользователи]'[Ссылки могут видеть только зарегистрированные и активированные пользователи]';
{Request String List Create}
Data.Add('method=office');
Data.Add('sig=4b4d194a083007aa538f49d2a0cd6b5c');
Data.Add('key=' + Edit2.Text);
Data.Add('getidea=1');
Data.Add('user=' + Edit1.Text);
{Sending Request}
s := [Ссылки могут видеть только зарегистрированные и активированные пользователи]('[Ссылки могут видеть только зарегистрированные и активированные пользователи]', Data); //Отправляем Post запрос
{Display Money}
g:=copy(s,pos('<money>',s)+length('<money>'),pos(' </money>',s)-pos('<money>',s)-length('<money>')); //Копируем
количество денег в переменную g
Label1.Caption:=g; //Выводим переменную g в Label
finally //Когда исполнили код ниже
Data.Free; //Очистка String List
CM.Free; //Очистка Cookie Manager
[Ссылки могут видеть только зарегистрированные и активированные пользователи] //Очистка IdHTTP
end; //Ошибка была здесь, из-за пропущенного end'а
end; //Заканчивается исполняемый код данной процедуры

end.
Код исправлен и объяснен.

P.S. Странно, что тебе выдало только одну ошибку...

[tonnyripper]

все норм токо вот в лабел нечего не показует. и где тстринг находится?

Добавлено через 9 минут
просто чего то не хочит в лабел выводить результат.

[Хакерок:)]

все норм токо вот в лабел нечего не показует. и где тстринг находится?

Добавлено через 9 минут
просто чего то не хочит в лабел выводить результат.
Почитай исправленный код. Вывод информации из переменной g в Label заключен в try..finally, следовательно где-то в части кода от try до finally происходит ошибка.
P.S. Это к делу не относится, но для вопросов есть подраздел.

[tonnyripper]

помоги