const
 FormatStr = '%d-%d-%d-%d-%d-%d';
var
 buf:array[0..255] of char;
 param:array[0..5] of integer;
begin
 param[0]:=10;
 param[1]:=2;
 param[2]:=3;
 param[3]:=4;
 param[4]:=5;
 param[5]:=6;
 wvsprintf(buf, FormatStr,@param);
 showmessage(buf)
end;

const
 FormatStr = '%d-%d-%s-%d-%d-%d';
var
 buf:array[0..255] of char;
 param:array[0..5] of dword;
 s:string;
begin
 s:='hello'#0;
 param[0]:=10;
 param[1]:=2;
 param[2]:=dword(@s[1]);
 param[3]:=4;
 param[4]:=5;
 param[5]:=6;
 wvsprintf(buf, FormatStr,@param);
 showmessage(buf)
end;