익스플로어 새창 열기

{ URL 열기 }
procedure TForm1.NavigateIE(const URL: WideString);
var
 IE: Variant;
begin
 try
   IE := CreateOleObject('InternetExplorer.Application');
 except
   ShowMessage('익스플로러 실행 실패');
   Exit;
 end;
 IE.Visible := true;
 {
 IE.ToolBar := false;   IE.Resizable := false;   IE.TheaterMode := true;
 IE.Left := 300; IE.Top := 300; IE.Width := 350; IE.Height := 385;
 }
 IE.Navigate2(URL);
 IE := Unassigned;
end;