uses olectnrs; 
 
var 
  tok: TOleContainer; 
  s: string; 
 
procedure TForm1.FormCreate(Sender: TObject); 
begin 
// zu DEMO-Zwecken ---------------------- 
  clientheight := 480 + button1.height + 2; 
  clientwidth := 640; 
  button1.enabled := true; 
  button2.enabled := false; 
  button1.caption := '&Öffnen'; 
  button2.caption := '&Schließen'; 
  button1.left := 0; 
  button2.left := button1.width; 
  button1.top := clientheight - button1.height; 
  button2.top := button1.top; 
// -------------------------------------- 
  tok := TOleContainer.create(self); 
  tok.parent := self; 
  tok.align := altop; 
  tok.height := button1.top - 2; 
end; 
 
procedure TForm1.FormDestroy(Sender: TObject); 
begin 
  tok.free; 
end; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  s := 'http://www.dbrsoftware.de/delphi'; 
  tok.CreateObject('Shell.Explorer', false); 
  tok.DoVerb(ovshow); 
  tok.oleobject.navigate(s); 
  button1.enabled := false; 
  button2.enabled := true; 
end; 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  tok.close; 
  tok.destroyobject; 
  button1.enabled := true; 
  button2.enabled := false; 
end;