procedure TForm1.Button1Click(Sender: TObject);
var
params, responseres : tstringlist;
begin
params := TStringList.Create;
responseres := TStringList.Create;
try
params.Add('email=edit1');
params.Add('password=edit2');
IdHTTP1.Post('http://vkontakte.ru/login.php',params);
if Pos('http://vkontakte.ru/profile.php',responseres.Text)>0 then
ShowMessage('Авторизовались!')
else
ShowMessage('Авторизация не удалась!');
finally
params.free;
responseres.free;
end;
end;
end.