var
 S: TStringList;
 P,I: integer;
 user,balans,credit: string;
begin

 S:=TStringList.Create; //Создаём Строковый листок
 Memo1.Text:=idHttp1.Get('http://stat.elcity.ru/showstat.php?'+'uid='+login.Text+'&pwd='+password.Text);  // Получаем страницу
 S.Text:=Memo1.Text;
 P:=S.IndexOf('<!--Вставка блока PHP -->');
 //
 if not (P=-1)
 then
  begin
   for i:=0 to 3 do
    begin
     inc(P);
     if Pos('Пользователь',S.Strings[p])>0
     then user:=S.Strings[p];
     if Pos('Текущий кредит',S.Strings[p])>0
     then credit:=S.Strings[p];
     if Pos('Баланс',S.Strings[p])>0
     then balans:=S.Strings[p];

    end;

  end;
 Delete(user,1,pos('<',user));
 Delete(user,1,pos('td',user));
 Delete(user,1,pos('>',user));
 Delete(user,1,pos('b',user));
 Delete(user,pos('/',user),20);
 Delete(user,1,pos('<',user));
 Delete(user,1,pos('td',user));
 Delete(user,1,pos('>',user));
 Delete(user,1,pos('b',user))
 Delete(user,pos('/',user),20);
 Label1.Caption:='Пользователь: '+user+#10#13+'Текущий кредит: '+credit+#10#13;

<!--Вставка блока PHP -->
<h2><font color=darkred size=+1 face=Arial>Общая информация</font></h2>
 <table width=400 cellspacing=0 cellpadding=3 border=1>
 <tr><td>Пользователь</td><td align=center><b>iglass</b></td></tr>

 <tr><td>Ф.И.О.</td><td align=center><b>Иван</b></td></tr>
 <tr><td>Лицевой счет</td><td align=center><b>10854</b></td></tr>
 <tr><td>Тариф</td><td align=center><b>Безлимитный 560</b></td></tr>
 <tr><td>Абонентская плата</td><td align=center><b>900 руб/месяц</b></td></tr>
 <tr><td>Текущий кредит</td><td align=center><b>0 руб.</b></td></tr><tr><td>Сумма на счету</td><td align=center><b><font color=green>524.52</font> руб.</b></td></tr>