var
  Form1: TForm1;
  uns:string;
  post:tstringlist;
  s:string;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
stream:Tmemorystream;
begin
post:=tstringlist.create;
post.Add('act=register');
post.Add('first_name='+edit1.text);
post.Add('last_name='+edit2.text);
post.Add('regemail='+edit3.text);
post.Add('regpass='+edit4.text);
post.Add('sex='+edit5.text);
post.Add('timezone=240');
post.Add('by_login=0');
try
uns:=UTF8toANSI(idhttp1.post('http://vkontakte.ru/register.php', post));
s:=copy(uns,25,12);
finally
stream:=tmemorystream.create;
idhttp1.Get('/captcha.php?sid='+s, stream);
stream.SaveToFile('C:\\captcha.jpeg');
stream.Free;
image1.Picture.LoadFromFile('C:\\captcha.jpeg');
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
p:string;
begin
post.Add('captcha_sid='+s);
post.Add('captcha_key='+edit6.text);
idhttp1.post('http://vkontakte.ru/register.php', post);
post.Clear;
post.add('act=login');
post.add('try_to_login=1');
post.Add('vk=');
post.add('email='+edit3.text);
post.add('pass='+edit4.text);
try
uns:=UTF8toANSI(idhttp1.post('http://vkontakte.ru/login.php/', post));
p:=copy(uns,286,56);
finally
if p= '' then
memo1.Lines.add('Регистрация не удалась')
else
memo1.lines.add('Регистрация прошла успешно');
end;
end;
end.