Клиентская авторизация вк Delphi

У кого есть исходник клиентской авторизации вк для Delphi.
Можете пожалуйста скинуть исходник буду благодарен)

 

http://www.smw75.ru/avtorizaciya-vkontakte/
проверку сам допилиш, ну и если надо на индях - там переделать не сложно

 

Code:

function LoginVK(var http : TIdHTTP; login, pass : string):boolean;
var page : string;
begin
try
  page := http.Get('http://vkontakte.ru/login.php?email='+login+'&pass='+pass);
  if Pos ('logout', page)<>0 then
    result := true
  else
    result := false;
except
  result := false;
end;
end;

пример использования:

Code:

...
var http : TIdHTTP; cook : TIdCookieManager;
begin
  http := TIdHTTP.Create(nil);
  cook := TIdCookieManager.Create(http);
  http.CookieManager := cook;
  http.HandleRedirects := true;
  if LoginVk(http, 'Login', 'Password') then
    ShowMessage('Good!') else ShowMessage('Bad');
end;