Находим в Мемо, номер текущей строки

  Найти в 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 начинается с нуля. Удачных экспериментов!