Delphi - ayuda con editor de texto

Hola. Disculpen, alguien podrìa orientarme sobre como puedo indicar en un editor de texto en qué linea y columna se encuentra el puntero?, el editor de texto lo estoy haciendo yo

var
Lpos,Cpos,LineLength:integer;
begin
Lpos := SendMessage(memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);
Cpos := SendMessage(memo1.Handle,EM_LINEINDEX,Lpos,0);
LineLength := SendMessage(memo1.handle, EM_LINELENGTH, Cpos, 0);
CPos := Memo1.SelStart-CPos;
Label1.Caption:=IntToStr(Lpos); {Linea }
Label2.Caption:=IntToStr(Cpos); {Columna }
Label3.Caption:=IntToStr(LineLength); {Longitud de la linea }
end;