procedure TForm1.Button1Click(Sender: TObject);
var IE:olevariant;
begin
   ie:=CreateOleObject('InternetExplorer.Application');
   ie.Navigate('http://home.pchome.com.tw/home/delphiwww');
end;