FindCommentsInRange

procedure FindCommentsInRange(

  const Src: string;

  StartPos: Integer;

  EndPos: Integer;

  out FirstCommentStart: Integer;

  out FirstAtomStart: Integer;

  out LastCommentEnd: Integer;

  out LastAtomEnd: Integer;

  NestedComments: Boolean = False

);