SearchNextInText

function SearchNextInText(

  Search: PChar;

  SearchLen: PtrInt;

  Src: PChar;

  SrcLen: PtrInt;

  StartPos: PtrInt;

  out MatchStart: PtrInt;

  out MatchEnd: PtrInt;

  WholeWords: Boolean = False;

  MultiLine: Boolean = False

):Boolean;