如何用Delphi在ShowMessage中居中对齐文本？

procedure TForm1.Button1Click(Sender: TObject);
var
  TextWidth, TextHeight, X, Y: Integer;
begin
  // 设置要显示的文本
  ShowMessage('居中对齐的文本');

  // 获取文本的宽度和高度
  TextWidth := Canvas.TextWidth('居中对齐的文本');
  TextHeight := Canvas.TextHeight('居中对齐的文本');

  // 计算文本在屏幕上的位置
  X := (Screen.Width - TextWidth) div 2;
  Y := (Screen.Height - TextHeight) div 2;

  // 在屏幕上居中显示文本
  ShowMessagePos('居中对齐的文本', X, Y);
end;

function ShowMessagePos(const Msg: string; X, Y: Integer): Integer;
var
  Form: TForm;
begin
  Form := CreateMessageDialog(Msg, mtCustom, [mbOK]);
  try
    Form.Position := poDesigned;
    Form.Left := X;
    Form.Top := Y;
    Result := Form.ShowModal;
  finally
    Form.Free;
  end;
end;