[ApxaHGe1]

Код:

Function VKAuth (login,pass:string):Boolean;
var
IdHTTP1:TIdHTTP;
Answer:String;
begin
IdHTTP1:=TIdHTTP.Create(nil);
IdHTTP1.HandleRedirects:=True;
Answer:=IdHTTP1.Get('http://vkontakte.ru/login.php?op=1&email='+login+'&pass='+pass+'&expire=0');
if Pos('<title>Вход</title>',Answer) = 0 then
begin
Result:=True;
end
else
Result:=False;
end;

я так делаю это