Подсчёт всех открытых книг в экселе

 
var AppExcel //Глобальная переменная
 
procedure TForm2.FormCreate(Sender: TObject);
begin
 AppExcel:=CreateOleObject('Excel.application') ; // при создании формы проводим связку
end;
 
 
 
 procedure TForm2.Button7Click(Sender: TObject);
var i:integer;
begin
 
 if not OpenDialog1.execute then exit;
    AppExcel.WorkBooks.open(openDialog1.FileName)  ; //Чёто открываем
 
label1.caption:=inttostr(appExcel.workbooks.count) ; //При каждом щелчке по кнопке  и открытии новой книги i увеличивается на 1
 end;

procedure TForm1.Button1Click(Sender: TObject);
var
 Wnd: hWnd;
 buff: array[0..MAX_PATH] of Char;
 i: integer;
begin
 i:= 0;
 Wnd := GetWindow(Handle, GW_HWNDFIRST);
 while Wnd <> 0 do
 begin
   if IsWindowVisible(Wnd) then
    begin
      GetClassName(Wnd, buff, SizeOf(buff));
      if buff = 'Notepad' then
        i:= i + 1;
    end;
   Wnd := GetWindow(Wnd, GW_HWNDNEXT);
 end;
 Caption:= IntToStr(i);
end;

uses
  ComObj;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  exApp : OleVariant;
  Cnt : Integer;
begin
  try
    exApp := GetActiveOleObject('Excel.Application');
  except
    exApp := CreateOleObject('Excel.Application');
  end;
  
  {...}
  
  Cnt := exApp.Workbooks.Count;
  ShowMessage('Workbooks.Count = ' + IntToStr(Cnt));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 Wnd: hWnd;
 buff: array[0..MAX_PATH] of Char;
 i: integer;
begin
 i:= 0;
 Wnd := GetWindow(Handle, GW_HWNDFIRST);
 while Wnd <> 0 do
 begin
   if IsWindowVisible(Wnd) then
    begin
      GetClassName(Wnd, buff, SizeOf(buff));
      if buff = 'bosa_sdm_Microsoft Office Word 12.0' then
        i:= i + 1;
    end;
   Wnd := GetWindow(Wnd, GW_HWNDNEXT);
 end;
 Caption:= IntToStr(i);
end;