Funktion optimieren

[WS1976]

Hallo,
so verstehts auch jeder:

Delphi-Quellcode:

function TestFunc(const s: String): Boolean; Inline; 
var 
  i : Integer; 
  
begin 
  Result := True; 
  if Length(s) <> 32 then 
    Result := False 
  else 
    for i := 1 to 32 do 
       If FraudChar [s[i]] Then 
          Begin 
            Result := False; 
            Break; 
          end; 
end;

Grüsse
Rainer