TBits.LoadText

public function TBits.LoadText(

  Pos: SizeInt;

  Count: SizeInt;

  const S0: string;

  const S1: string;

  Buf: PChar;

  BufAvail: SizeInt

):SizeInt;

procedure TBits.LoadText(

  Pos: SizeInt;

  Count: SizeInt;

  const S0: string;

  const S1: string;

  const Src: string

);