Найти в Memo, номер текущей строки, можно следующим образом:

  1) Кидаем на форме 1 - Memo, 1 - Label и 1 - Button;

  2) Создаем обработчик событий OnClick на кнопке, где записываем следующее...

var

FindLine: integer;

begin

FindLine:=SendMessage(Memo1.Handle, EM_LINEFROMCHAR, word(-1), 0);

Label1.Caption:=IntToStr(FindLine);

end;

  3) Запускаем проект и если все введено четко, то после помещения курсора на любую строку, после нажатия кнопки, наш Label высветит ее номер.

Не забываем, нумерация строк в Memo начинается с нуля.

  Удачных экспериментов!