Wie ermittle ich in einem TMemo (oder TRichEdit) die Cursorposition?

Hier eine Prozedur, die die Zeile und Spalte des Textcursors ermittelt:

procedure GetPosition(var x,y : integer);
begin
  x := SendMessage(Memo.Handle, EM_LINEFROMCHAR,Memo.SelStart, 0);
  y := SendMessage(Memo.Handle, EM_LINEINDEX, CurLine, 0);
end;

siehe auch:

Wie kann ich vom Programm aus durch ein TMemo scrollen?
Wie kann ich zu einer bestimmten Zeile eines TMemo (order TRichEdit) scrollen?
Wie fügt man an einer bestimmten Position Text in ein TMemo (order TEdit, TRichEdit) ein?
Wie kann ich den blinkenden Cursor in einem deaktivierten TMemo (oder TEdit) verstecken?
Wie kann ich die maximale Textlänge in einem TRichEdit erhöhen?

Delphi FAQ