Ошибка на RefToCell

[artemavd]

Добрый вечер! Вдруг возникла ошибка на выделенной при компиляции строке. Раньше не было:

function SaveAsExcelFile(StringGrid2: TStringGrid; ASheetName,AFileName: string): Boolean;
const
 xlWBATWorksheet = -4167;
var
 Row,Col,i,j: integer;
 GridPrevFile: string;
 XLApp,Sheet,Data: OLEVariant;
begin
 Data:=VarArrayCreate([1,StringGrid2.RowCount,1,StringGrid2.ColCount],varVariant);
 for i:=0 to StringGrid2.ColCount - 1 do
  for j:=0 to StringGrid2.RowCount - 1 do
   Data[j+1,i+1]:=StringGrid2.Cells[i,j];
   Result:=False;
   XLApp:=CreateOleObject('Excel.Application');
   try
    XLApp.Visible:=False;
    XLApp.Workbooks.Add(xlWBATWorkSheet);
    Sheet:=XLApp.Workbooks[1].WorkSheets[1];
    Sheet.Name:=ASheetName;
    Sheet.Range[RefToCell(1,1),RefToCell(StringGrid2.RowCount,StringGrid2.ColCount)].Value:=Data;
    try
     XLApp.Workbooks[1].SaveAs(AFileName);
     Result:=True;
    except
    end;
   finally
   if not VarIsEmpty(XLApp) then
   begin
    XLApp.DisplayAlerts:=False;
    XLApp.Quit;
    XLApp:=Unassigned;
    Sheet:=Unassigned;
   end;
  end;
 end;

Может что-то в uses надо? Компилятор говорит, что "[Error] MAIN.PAS(1107): Undeclared identifier: 'RefToCell'"

[dmitriegorovih]

это ваша функция RefToCell?

[artemavd]

это ваша функция RefToCell?

Нет, не моя.

[mihali4]

function RefToCell(ARow, ACol: Integer): string;

begin

 Result := Chr(Ord('A') + ACol - 1) + IntToStr(ARow);

end;

[artemavd]

mihali4, спасибо, теперь все работает