[Aristarh Dark]

Вот код на VBA, под Delphi сам адаптируй

Код:

    iAddress = Range("A1").SpecialCells(xlLastCell).Address
    irow = Range("A1").SpecialCells(xlLastCell).Row
    iclm = Range("A1").SpecialCells(xlLastCell).Column