Connaitre la numéro de ligne/colonne dans un TRichEdit

function RichRow(m:TRichedit) : LongInt;
begin
Result:=SendMessage(m.Handle,EM_LINEFROMCHAR,m.SelStart,0);
end;

function RichCol(m:TRichedit) : LongInt;
begin
Result:=m.SelStart-SendMessage(m.handle,EM_LINEINDEX,
SendMessage(m.Handle,EM_LINEFROMCHAR,m.SelStart,0),0);
end;