Обработать ответ от сервера [POST]

[sice]

Помогите пожалуйста обработать запрос от сервера.
Вот код, который отсылает данные на сервер методом POST

procedure TForm1.Button1Click(Sender: TObject);
begin
 data:=tstringlist.create;
 data.Add('get=5');
 data.Add('method=game');
 data.Add('user='+Edit1.Text);
 data.Add('key='+Edit2.Text);
 IdHTTP1.HandleRedirects:=true;
 PageProfile:=IdHTTP1.Post('http://site/game.php?', data);
 Data.Free;
 Memo1.Text:=PageProfile;
 end;

Приходит ответ и мне нужно из него извлечь значения тегов <money>значение</money> и вывести их в отдельный label.
Посмотрел функцию Pos, но так и не разобрался, как достать значение между тегами <money></money>

Заранее большое спасибо.

[mss]

Дико взирать на потуги в веб-программинге (не самая алгоритмически тривиальная, полагаю, область прикладного пргограмминга) при отсутствии элементарных знаний матчасти.

[Пепел Феникса]

1)вроде я уже достаточно примеров выкладывал.
2)не однократно выкладывался код парсинга именно между тэгами(этот не мой)

[dosha]

function Pars(T_, ForS, _T: string): string;
var
  a, b: integer;
begin
  Result := '';
  if (T_ = '') or (ForS = '') or (_T = '') then
    Exit;
  a := Pos(T_, ForS);
  if a = 0 then
    Exit
  else
    a := a + Length(T_);
  ForS := Copy(ForS, a, Length(ForS) - a + 1);
  b := Pos(_T, ForS);
  if b > 0 then
    Result := Copy(ForS, 1, b - 1);
end;

lablel1.caption:=pars(<money>,PageProfile,</money>);