Data.Add('email='+Edit1.Text); Data.Add('pass='+Edit2.Text); Data.Add('expire='); Data.Add('vk=0'); S:=HTTP.Post('http://login.vk.com/?act=login',Data); S:=Copy(S,Pos('value=',S)+7,56); Data.Clear; Data.Add('s='+s); Data.Add('op=slogin'); Data.Add('redirect=1'); Data.Add('expire=0'); Data.Add('to='); HTTP.Post('http://vkontakte.ru/login.php',Data); Memo1.Text:=HTTP.Get('http://vkontakte.ru/profile.php');