Hi,
um die aktuelle Zeile zu ermitteln (also die Zeile in der sich der Curdor befindet), kannst du die
API Funktion SendMessage verwenden:
Label1.Caption:=IntToStr(SendMessage(Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0));
Zu beachten ist aber, dass die erste Zeile, wie bei einer Stringlist, mit 0 beginnt.
Gruß
Mazel