1:
2:
3:
4:
5:
6:
7:
8:

procedure GetMemoLineCol (aMemo: TCustomMemo; var aMemoLine, aMemoCol: Integer);
begin
  with aMemo do 
    begin     
      aMemoLine := SendMessage (Handle, EM_LINEFROMCHAR, SelStart, 0);
      aMemoCol := SelStart - SendMessage (Handle, EM_LINEINDEX, aMemoLine, 0);   
    end; 
end;