Небольшая заметка-памятка. Перед работой с MS Excel желательно проверить установлен ли в системе MS Office.
Uses ActiveX;
if not IsOLEObjectInstalled('Excel.Application') then
ShowMessage('MS Excel не установлен!')
else
ShowMessage('MS Excel установлен!');
function IsOLEObjectInstalled(Name: String): boolean;
var
ClassID: TCLSID;
begin
Result := CLSIDFromProgID(PWideChar(WideString(Name)), ClassID) = S_OK;
end;