delphi format 换多个函数