結果 : delphi 7 format function