uses ComObj;

...

procedure ReadXLDocument( file_name: string );
var XLApp: OLEVariant;
begin
    XLApp := CreateOleObject( 'Excel.Application' );    // создаем экземпляр объекта автоматизации Excel
    try
        XLApp.Workbooks.Open( file_name );              // загружаем документ
        XLApp.Cells[1, 1] := 'Start cell';              // пишем (читаем)
    finally
        if not VarIsEmpty( XLApp )
        then begin
            XLApp.Quit;                                 // закрываем документ
            XLApp := Unassigned;                        // уничтожаем объект
        end;
    end;
end;