Помощ начинающему программисту

[tolprog]

Еще в этих процедурах zver_up и zver_down хватает.

procedure tform1.zver_down;
begin
if Pos('icon_pet.png',text)>0 then
  begin
  repeat try
           if Pos('<div class="page"><div class="page_game"><div class="page_game_captcha">',Text)>0 then
             begin
             ShowMessage('Captcha. Please, come and input edit captcha.');
             Exit;
             end;
           if Pos('<input class="text" id="user_name" name="user_name" type="text" value="" />',text)>0 then vhod;
           text:=idhttp1.get('http://g.meni.mobi/game/confirm?back_url=%2Fgame%2Fpet&icon=pet_cage_in&key_part=fb6c&pc=true&text=%D0%BF%D0%BE%D1%81%D0%B0%D0%B4%D0%B8%D1%82%D1%8C+%D0%B2+%D0%BA%D0%BB%D0%B5%D1%82%D0%BA%D1%83&url=%2Fgame%2Fpet%2Factivate%3Fvalue%3Df');
           text:=idhttp1.get('http://g.meni.mobi'+copy(text,Pos('/game/confirm2?back_url=',text),96));
           a:=True;
         except
           a:=False;
         end;
  until (a)and(Pos('header_icon_pet_non_active',text)>0);
  end;
  if Pos('<input class="text" id="user_name" name="user_name" type="text" value="" />',text)>0 then
    begin
    vhod;
    zver_down;
    end;
end;

[tolprog]

Как вот такую строку записать в один рядок? Кодировка utf8.

53805 серебра<br />
  </div></div><div class="links ">
    <a href="/game/profile/process_train?a=power"

[Stilet]

в один рядок?

Всмысле? Так чтоб она в программном коде была?

'53805 серебра<br />'#13#10'  </div></div><div class="links ">'#13#10'    <a href="/game/profile/process_train?a=power"'#13#10

[tolprog]

Подскажите мне, пожалуйста, почему при отправке гет-запроса не всегда получается получить необходимые данные(код страници). Исключения не происходит(except не выполняется), но требуемая страница не загружается. Все эти случаи происходят при инициализации нажатой кнопки(button). Как это возможно исключить? А то страница перезагружается несколько раз и сильно замедляет работу программы.

[tolprog]

Ну так что, никто не знает?