Код:
var
html:TStringList;
begin
html:=TStringList.Create;
html.text:=idhttp.get('http://vkontakte.ru/login.php?email=ваш_майл&pass=ваш_пароль&expire=0');
q:=pos('<a class="memLink" href=',source)+27;
while source[q]<>'<div class="actions">' do begin
itog:=itog+source[q];
inc(q);
end;
Admin: Напоминаю про оформленте кода. При рецедиве бан.
вот так я думаю