Problem mit alternativer Format-Funktion

[CalganX]

Hi,
ich habe aus Luckie's Toolbox folgende Format-Funktion:

Delphi-Quellcode:

function Format(fmt: string; params: array of const): string;
var
  pdw1, pdw2: PDWORD;
  i: integer;
  pc: PCHAR;
begin
  pdw1 := nil;
  if length(params) > 0 then GetMem(pdw1, length(params) * sizeof(Pointer));
  pdw2 := pdw1;
  for i := 0 to high(params) do begin
    pdw2^ := DWORD(PDWORD(@params[i])^);
    inc(pdw2);
  end;
  GetMem(pc, 1024 - 1);
  try
    SetString(Result, pc, wvsprintf(pc, PCHAR(fmt), PCHAR(pdw1)));
  except
    Result := '';
  end;
  if (pdw1 <> nil) then FreeMem(pdw1);
  if (pc <> nil) then FreeMem(pc);
end;

Nun ist das Problem, dass bei dem Aufruf
format('%.0f', [TimerLow / (1000.0 * TimeOfDelay)]) dann im Nachhinein f ausgegeben wird. Das Problem ist nicht da, wenn ich die SysUtils wieder einbinde und das dann aufrufe. Denn dann wird die Zahl korrekt ausgegeben.
Kann mir da jemand helfen?

Chris