Недостаточно памяти для выполнения

procedure TClassSal.LoadNVolume;
  const
xlCellTypeLastCell = $0000000B; //Тип последней заполненной ячейки
var
  XLApp, Sheet: OLEVariant;
  LastCell: Variant;
  x,y,i, j: integer;
 XLSFile,TypeOperat,Regim: string;
begin
XLSFile:='C:\tempdelphi\testsal.xls'; //путь к файлу Excel
XLApp := CreateOleObject('Excel.Application');
XLApp.Visible := False;
XLApp.Workbooks.Open(XLSFile);//Открываем Excel
Sheet := XLApp.Workbooks[ExtractFileName(XLSFile)].WorkSheets[1];
LastCell := Sheet.Cells.SpecialCells(xlCellTypeLastCell,EmptyParam); //активируем последнюю ячейку на листе
x := LastCell.Row;  //получаем номер последней строки
y := LastCell.Column;//получаем номер последнего столбца
showmessage(VarToStr(x-1)+' строк и '+VarToStr(y)+' столбцов');
TypeOperat:='SET';
Regim :='ADD';
 
 with StoredProcCreat do
  try
    for i := 2 to x do
    begin
    ProcedureName := 'JOB_SAL;1';
    Connection := ConnectTable.Connection;
    Parameters.Clear;
    Parameters.Refresh;
    Parameters.ParamValues['@TypeOperation'] :='SET';
    Parameters.ParamValues['@Regime']:='ADD';
    Parameters.ParamValues['@DocId']:=VarToStr(Sheet.Cells[i,15]);
    Parameters.ParamValues['@ObjectId']:=VarToStr(Sheet.Cells[i,19]);
    Parameters.ParamValues['@ProductId']:=VarToStr(Sheet.Cells[i,16]);
    Parameters.ParamValues['@ChannelId']:=VarToStr(Sheet.Cells[i,17]);
    Parameters.ParamValues['@DirectionId']:=VarToStr(Sheet.Cells[i,18]);
    Parameters.ParamValues['@ConsumerId']:=VarToStr(Sheet.Cells[i,20]);
    Parameters.ParamValues['@UnitId']:=VarToStr(Sheet.Cells[i,21]);
    Parameters.ParamValues['@Volume']:=Sheet.Cells[i,22];
 
    Parameters.ParamValues['@ObjectIdOld']:=VarToStr(Sheet.Cells[i,19]);
    Parameters.ParamValues['@ProductIdOld']:=VarToStr(Sheet.Cells[i,16]);
    Parameters.ParamValues['@ChannelIdOld']:=VarToStr(Sheet.Cells[i,17]);
    Parameters.ParamValues['@DirectionIdOld']:=VarToStr(Sheet.Cells[i,18]);
    Parameters.ParamValues['@ConsumerIdOld']:=VarToStr(Sheet.Cells[i,20]);
    Parameters.ParamValues['@UnitIdOld']:=VarToStr(Sheet.Cells[i,21]);
    Parameters.ParamValues['@VolumeOld']:=Sheet.Cells[i,7];
    Parameters.ParamValues['@RegimeSummator']:=0;
    ExecProc;
 
   end;
 
  finally
    free;
     XLApp.Quit;
 //очищаем выделенную память
 XLApp := Unassigned;
 Sheet := Unassigned;
end;
   end;