var ... ISheet: Excel97.ExcelWorksheet; //лист value:OLEVariant; str:string; begin ... Value := ISheet.Range['Q10', EmptyParam].Value; str:=Value; ... end;