Delphi TFontDialog调用的就是WIndows系统的字体设置对话框。不知道你是什么版本的WIndows或者记事本.按照你的调用方法得到的应该是这逗咐样的效果.
不行的话,你就只能自档搭己山蠢纯新建一个窗体自己排版了。
with TFontDialog.Create(nil) 耐贺do
begin
Font := Memo1.Font;
昌颂派Options := 樱穗[fdApplyButton] - [fdEffects];
if Execute() then
Memo1.Font := Font;
end;
找控件啊。