[Кодер]

Вот здесь я добавляю.

Код:

while Pos('<user>',answer)<>0 do
          begin

          tempuser.uid:=Pars('uid',answer);
          tempuser.fname:=Pars('first_name',answer);
          tempuser.lname:=Pars('last_name',answer);
          tempuser.online:=StrToInt(Pars('online',answer));

          memo1.Lines.Add('added user='+tempuser.fname+' '+tempuser.lname);
          memo1.Lines.Add('online='+IntToStr(tempuser.online));

          if copy(Pars('photo_rec',answer),Length(Pars('photo_rec',answer))-3,4)='.jpg' then
             begin
               try
                  gethttp.Get(Pars('photo_rec',answer), ms);
                  ms.Position := 0;

                  jpeg := TJPEGImage.Create;
                  jpeg.LoadFromStream(ms);

                  tempuser.photo:=TBitmap.Create;
                  tempuser.photo.Assign(jpeg);
                  jpeg.Free;
               finally
                  ms.Clear;
               end;
             end;

          Friends.AddObject(tempuser.uid,tempuser);

          delete(answer,1,Pos('</user>',answer));
    end;