- Function Format(Const S: WideString Const Args: Array of Const): WideString;
 - Var A: Array[0..15] of LongWord;
 - i: Integer;
 - Begin
 - For i := High(Args) downto 0 do A[i] := Args[i].VInteger;
 - SetLength(Result, 1024);
 - SetLength(Result, wvsprintfW(PWideChar(Result), PWideChar(S), @A));
 - End;
 
