StripString Namen gesucht

[WoGe]

Hallo

ist diese Variante jetzt besser?

Delphi-Quellcode:

function StripString(const sTemp: String;const ValidChars: TSysCharSet): String;
var c : Char;
  i : Integer;
begin
  i := 0;
  Setlength(result,sizeof(sTemp));
   for c in sTemp do
    if CharInSet(c, ValidChars) then
    begin
      Inc(i);
      Result[i] := c;
    end;
  Setlength(result,i);
end;

Da reservier ich am Anfang zwar möglicherweise ein paar Bytes zuviel, spare mir aber die 1te Schleife

Gruss wo

Edit: Formverweise entfernt