uns:=idhttp1.get('http://login.vk.com/?act=login&email='+log+'&pass='+pass+'&expire=&vk= ');
if ansipos('captcha_sid',uns) <>0 then
begin
Img := TJpegImage.Create;
Ms := TMemoryStream.Create;
try
idHttp1.Get('http://vkontakte.ru/captcha.php?s=1&sid=' + sid, Ms);
except end;
//s potom sohranit' v file

Ms.Position := 0;
img.LoadFromStream(ms);
Ms.SaveToFile('sasd.jpg')

end;