delphi 获得memo，Richedit焦点所在行

procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
begin
  i:=SendMessage(Richedit1.handle,EM_LINEFROMCHAR,Richedit1.selstart,0)+1;
  ShowMessage(IntToStr(i));
end;