Funktion optimieren

[xtZ]

Hallo,

Ich habe folgende Funktion, die sehr oft aufgerufen wird und wüsste gerne, ob man die irgendwie optimieren kann mit ASM oder so.

Delphi-Quellcode:

function TestFunc(const s: String): Boolean; Inline;
var
  i, l: Integer;
begin
  Result := True;
  l := Length(s);
  if l <> 32 then
  begin
    Result := False;
    Exit;
  end;
  for i := 1 to l do
    if not (s[i] in ['0'..'9', 'A'..'f', 'a'..'f']) then
    begin
      Result := False;
      Break;
    end;
end;

Danke

MfG