OLE with the internet explorer

uses comobj; 

procedure OpenIE(aURL: string); 
var 
  IE        : Variant; 
  WinHanlde : HWnd;  
begin  
  if( VarIsEmpty(IE) )then 
  begin  
   IE:=CreateOleObject(''''InternetExplorer.Application'''');
   IE.Visible := true;  
   IE.Navigate(aURL); 
  end  
  else  
  begin  
    WinHanlde := FindWIndow(''''IEFrame'''', nil); 
    if (0 <> WinHanlde) then 
    begin  
      IE.Navigate(aURL);  
      SetForegroundWindow(WinHanlde);  
    end  
    else 
      ShowMessage(''''Can''''''''t open IE !''''); 
  end; 
end;  


procedure TForm1.Button1Click(Sender: TObject); 
begin 
  OpenIE(''''http://www.infojet.cz/delphi/tips/''''); 
end;