Procedure CloseAllIE_1;
var
  ie:HWND;
 begine
  //Ищем окно IE
  ie:=FindWindow(`IEFrame`, nil);
  //пока найдено окно IE...
  while ie<>0 do
  begin
  //... закрываем его
  postmessage (ie, WM_CLOSE, 0, 0);
  //ищем следующее
  ie:=FindWindow (`IEFrame`, nil);
  end;
end;