[求助]新手无助,请各位高手帮帮忙啊.................

如下程序段,我在教材上抄下来的:procedure TForm1.Button1Click(Sender: TObject);
begin
if FontSet.Execute then
  begin
  label1.Font:=FontSet.Font;
  end;
end;编译提示:    undeclared identifier: 'FontSet'
我知道是没有定义变量'FontSet',关键是不知道怎么定义,新手啊;
哦,对了,书上说这一段是调用字体设置对话框,这个变量应该是属于这个类的吧
还有颜色设置对话框也是一个情况
请大家帮忙啊,不尽感谢!