1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

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;

procedure SetMemoLineCol (aMemo: TCustomMemo; aMemoLine, aMemoCol: Integer);
begin   
  aMemo.SelStart := SendMessage (aMemo.Handle, EM_LINEINDEX, aMemoLine, 0) + aMemoCol; 
end;