Source position: orca_scene2d.pas line 6888
function ComposeCaretPos(
ALine: Integer;
APos: Integer
):TCaretPosition;