Запись и чтение Excel

Function NoUsedCells(FindIN:TExcelApplication):integer;
var i,n:integer;
Begin
i:=0;n:=0;
Repeat
i:=i+1;
begin
if FindIN.Cells.Item[i,1].Value<>'' then n:=n+1;
end;
until FindIN.Cells.Item[i,1].Value='';
n:=n-1;
Result:=n;
end;

"Добавить запись":
...
IndexCur:=NoUsedCells(ExcelApplication1); //присваиваю начальную позицию для записи
ExcelApplication1.Cells.Item[IndexCur,1].Value:=Edit1.Text; //записываю значение полей
...//записываю значение полей
ExcelApplication1.Cells.Item[IndexCur,1].Value:=Edit12.Text; //записываю значение полей
SpinEdit1.Value:=SpinEdit1.Value+1;
ExcelApplication1.ActiveWorkbook.Close(True,FExcel,False,0); //закрываю и сохраняю книгу

"Прочитать":
Edit1.Text:=ExcelApplication1.Cells.Item[SpinEdit1.Value,1].Value;//читаю
... //читаю
Edit12.Text:=ExcelApplication1.Cells.Item[SpinEdit1.Value,1].Value; //читаю
ExcelApplication1.ActiveWorkbook.Close(True,FExcel,False,0); //закрываю и сохраняю книгу

var
  BaseBook:Variant;
  XLSColumnMaxBase,XLSRowMaxBase:word;
 
//далее в программе...
        ExcelApp.Workbooks.Item[ExcelApp.Workbooks.Count].Activate;
        BaseBook:=ExcelApp.Workbooks.Item[ExcelApp.Workbooks.Count];
        BaseBook.Sheets.Item[SheetNameBaseXLS].Select;
         //выделяю область данных листа...
        ExcelApp.ActiveWorkbook.ActiveSheet.UsedRange.Select;
        XLSColumnMaxBase:=BaseBook.ActiveSheet.UsedRange.Columns.Count;
        XLSRowMaxBase:=BaseBook.ActiveSheet.UsedRange.Rows.Count;

ExcelApplication1.Workbooks.Item[ExcelApplication1.Workbooks.Count].Activate;  //Здесь пишет ошибку:Not enough actual parameters
BaseBook:=ExcelApplication1.Workbooks.Item[ExcelApplication1.Workbooks.Count];
BaseBook.Sheets.Item[SheetNameBaseXLS].Select;  //Undeclared identifier: 'SheetNameBaseXLS'
ExcelApplication1.ActiveWorkbook.ActiveSheet.UsedRange.Select;// Undeclared identifier: 'UsedRange'
XLSColumnMaxBase:=BaseBook.ActiveSheet.UsedRange.Columns.Count; //Undeclared identifier: 'XLSColumnMaxBase'
XLSRowMaxBase:=BaseBook.ActiveSheet.UsedRange.Rows.Count;
RangeMatrixBase:=ExcelApp.Range['A1',
ExcelApp.Cells.Item[XLSRowMaxBase,XLSColumnMaxBase]].Value;

ExcelApplication1.Workbooks.Item[ExcelApplication1.Workbooks.Count].Activate(LOCALE_USER_DEFAULT);