MyStrToHex extrem schnell

[PeterPanino]

Hallo! Ich möchte folgende Funktion auf extreme Geschwindigkeit optimieren:

Delphi-Quellcode:

function MyStrToHex(s: string): string;
var
  i: Integer;
begin
  Result := '';
  for i := 1 to Length(s) do
    Result := Result + IntToHex(Ord(s[i]), 4);
end;

Kennt jemand eine Assembler-Version davon?