FindSequence

function FindSequence(

  const St: ShortString;

  var AChar: Byte;

  var Ascan: Byte

):Boolean;

function FindSequence(

  const St: ShortString;

  var ATreeEl: TTreeElement

):Boolean;