format 可以用 * 星号

procedure TForm1.FormCreate(Sender: TObject);
var
 s:string;
 a:integer;
 b:Single;
begin
  a:=3;
  b:=108.4;
  s:= Format('xx is %.*f',[a,b]);
  self.Caption:=s;
end;