например так:
proverka:=idhttp1.get(lallalalal) //авторизация на сайте
if pos('выход',proverka)<>0 then
memo1.Lines.Add(log+':'+pass)
else
memo2.Lines.Add(log+':'+pass)
//вместо выход можно написать logoff если ты авторизуешься на vk.com

ну как то так
P.S. писал тут сразу