Как определить номер текущей строки в TMemo?

{codecitation class=»brush: pascal; gutter: false;» width=»500px»}

procedure TForm1.Button1Click(Sender: TObject);

var

LineNumber : integer;

begin

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

ShowMessage(IntToStr(LineNumber));

end;

{/codecitation}