用wvsprintf() 代替。
var
  buf:array[0..100] of char;
  str:array[0..20] of char;
begin
  strpcopy(str,'2');
  wvsprintf(buf,'%020d',str);
  caption:=buf;
end;