[roman]

El siguiente código te lista todos los libros de Excel abiertos en un ListBox. De aquí sólo tendrías que buscar en el listado si está tu archivo.

Código Delphi [-]
(*
  ExcelApp - componente TExcelApplication
  lbDocs - ListBox
*)

var
  OleI: OleVariant;
  I: Integer;

begin
  lbDocs.Clear;
  for I := 1 to ExcelApp.WorkBooks.Count do
  begin
    OleI := I;
    lbDocs.Items.Add(ExcelApp.WorkBooks.Item[OleI].Name);
  end;
end;

// Saludos