var
  Page : TStringList;
  I : Integer;
  url : string;
begin
  Page := TStringList.Create;
  Page.Text := HTTP.Get('http://vkontakte.ru/idxxxxxx');
  url := Copy( Page.Text, Pos('img src=http://cs', Page.Text)+8, 70);
  Delete(url, Pos('/>', url), Length(url));
  page.Free;
end;