TempCnt := Min(Length(s1), l);
 for i := 1 to TempCnt do
 begin
  c := s1[i];
  if (c <> '"')
   {and (c <> '''')}//исправил - не было мягких знаков
   and not CharInSet(c, [#0..#9, #11, #12, #14..#20]) then //исправил - не было переносов
   Result := Result + c
  else
   Result := Result + ' ';
 end;

 TempCnt := Min(Utf8Length(s1), l);
 for i := 0 to TempCnt - 1 do
 begin
  CPLen := UTF8CodepointSize(p);
  c := p[0];
  if (c <> '"')
   and not CharInSet(c, [#0..#9, #11, #12, #14..#20]) then 
   begin
    SetLength(Result, Length(Result) + CPLen);
    Move(P^, Result[Length(Result) - CPLen + 1], CPLen);
   end;
  Inc(p, CPLen);
 end;

  Pos1 := {$IFDEF FPC}UTF8Pos{$ELSE FPC}Pos{$ENDIF FPC}(' ', s);
  Pos2 := {$IFDEF FPC}UTF8Pos{$ELSE FPC}PosEx{$ENDIF FPC}(' ', s, Pos1 + 1);