stringgrid中字體的對齊

procedure TForm1.Button2Click(Sender: TObject);
begin
  TextFormat := [tfSingleLine, tfCenter, tfVerticalCenter];
  StringGrid1.Refresh;
  TButton(Sender).Caption := '居中對齊';
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  TextFormat := [tfSingleLine, tfRight, tfVerticalCenter];
  StringGrid1.Refresh;
  TButton(Sender).Caption := '右對齊';
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  TextFormat := [tfSingleLine, tfLeft, tfVerticalCenter];
  StringGrid1.Refresh;
  TButton(Sender).Caption := '左對齊';
end;