uses ComObj; 
 
var IE: OLEVariant; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  IE := CreateOLEObject('InternetExplorer.Application'); 
  IE.width := 600; 
  IE.height := 555; 
  IE.visible := true; 
  IE.Navigate('http://www.dbrsoftware.de'); 
end; 
 
procedure TForm1.Button2Click(Sender: TObject); 
begin 
  IE.refresh; //aktuelle Seite neu laden 
end; 
 
procedure TForm1.Button3Click(Sender: TObject); 
begin 
  IE.Navigate('http://www.mzsaalfeld.de'); // neue Seite 
end; 
 
procedure TForm1.Button4Click(Sender: TObject); 
begin 
  IE.quit; // Internet Explorer schließen 
end;