Hier die VBA Version, Delphiumsetzung überlass ich dir selber.
Code:
Sub test()
Dim w As Worksheet, r As Range, i As Long
Set w = ActiveWorkbook.Worksheets(1)
Set r = w.Columns(2)
i = r.SpecialCells(xlCellTypeLastCell).Row
w.Cells(i, 2).Value = 4
End Sub
nb:
const xlCellTypeLastCell = 11
hth Jumpy