function StrPCopy (Dest: PRegExprChar; const Source: RegExprString):
PRegExprChar;
  var
   i, Len : PtrInt;
  begin
   Len := length (Source); //###0.932
   for i := 1 to Len do
    Dest [i - 1] := Source [i];
   Dest [Len] := #0;
   Result := Dest;
  end; { of function StrPCopy
--------------------------------------------------------------}
function StrLCopy (Dest, Source: PRegExprChar; MaxLen: PtrUInt):
PRegExprChar;
  var i: PtrInt;
  begin
   for i := 0 to MaxLen - 1 do
    Dest [i] := Source [i];
   Result := Dest;
  end; { of function StrLCopy
--------------------------------------------------------------}