1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:

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);
  IE.Quit;
 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;

1:
2:

while IE.Busy do
 application.ProcessMessages

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

var
  http: TIdHTTP;
  html: String;
begin
  http := TIdHTTP.Create(nil);
  try
    html := http.Get('http://www.google.de/q=Suchwort', s);
  finally
    http.free;
  end;
end;

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

procedure OpenIE(aUrl: string);
var IE: Variant;
    WinHanlde: HWnd;
begin
 if (VarIsEmpty(IE)) then
 begin
  IE:= CreateOleObject('InternetExplorer.Application');  // Hier stürzt er dann ab
  IE.Navigate2(aUrl);

  while IE.Busy do                 // Funktioniert wunderbar!
   Application.ProcessMessages;
  IE.Quit;
 end
 else
 begin
  WinHanlde:= FindWindow('IEFrame', nil);
  if (0 <> WinHanlde) then
  begin
   IE.Navigate2(aUrl);
   SetForegroundWindow(WinHanlde);
  end
  else
   ShowMessage('Can''t open IE !');
 end;
end;