FontDialog größere Schriftgrößen zulassen

[Nachteule]

Delphi-Quellcode:

procedure TForm15.Button1Click(Sender: TObject);
begin
  fontdialog1.Font.Size := 100;

  if fontdialog1.execute then
  begin

  end;

end;