Delphi Memo 에서 현재 Line 과 Column 알아내기

var Line, Column : integer;

With Memo1 do begin
   Line := Perform(EM_LINEFROMCHAR,SelStart, 0) ;
   Column := SelStart - Perform(EM_LINEINDEX, Line, 0) ;
end;