taideveloper(孔丙已) 或 happyzsl(学习) 请教一下！

Question

两位请教一下：关于控制窗体的自适应程序中
以下代码要定义在哪里？
type               TFooClass = class(TControl); { needed to get at protected }                               { font property }
var
  i: integer;
begin
  for i := ControlCount - 1 downto 0 do
    TFooClass(Controls[i]).Font.Size :=
        (NewFormWidth div OldFormWidth) *
        TFooClass(Controls[i]).Font.Size;
end;
另外，NewFormWidth 和 OldFormWidth 应在哪里定义？ 请多多指教！