Código Delphi [-]ExcelApplication1.Range['G1:G'+IntToStr(Row)].NumberFormat
ExcelApplication1.Range['G1:G'+IntToStr(Row)].NumberFormat