Všimněte si také (tedy až si ukázku spustíte, protože ze zdrojáku to nemusí být na první pohled jasné), že zvolený font nemá vliv jen na samotný text, ale stejný font a velikost bude použit i na tlačítka. To nemusí být vždycky dobré, proto můžete změnit například velikost fontu tlačítek přidáním následujícího řádku do místa kódu, kde se mění nadpisy tlačítek. Jeho velikost si nastavíme třeba na 10:
.
.
.
if Btn.Caption = '&No' then Btn.Caption := '&Ne';
if Btn.Caption = 'Cancel' then Btn.Caption := '&Storno';
if Btn.Default then ActiveControl := Btn;

Btn.Font.Size:=10;
.
.
.