procedure Form1.f(var t) //t是T的一个对象
begin
  t.p := a;               //p是T的一个属性,a是Form1的一个成员变量,类型
             //一致,但在这里出现了如题的错误,为何?
end;