j := 0
for i = BeginPos to EndPos do begin
if Sour[i] in CKeepChars then begin
Dest[j] := Sour[i];
Inc(j);
end;
end;