Delphi Unit局部变量 - 如何使每个实例都是唯一的？

在下面的单元中，我在IMPLEMENTATION部分声明了一个变量 - 该单元的本地变量。我还有一个在TYPE部分声明的过程，该过程接受一个参数并将该参数分配给有问题的局部变量。这个TFrame的每个实例都通过

passMeTheVar

传递一个唯一的变量。 我想要它做的是为帧的每个实例保留它自己的变量版本，与其他变量不同，并使用它来定义它的运作方式。然而，似乎正在发生的是所有实例都使用相同的值，即使我明确地将每个实例传递给另一个变量。 即：

Unit FlexibleUnit;
interface
uses
//the uses stuff
type
TFlexibleUnit=class(TFrame)
   //declarations including
   procedure makeThisInstanceX(passMeTheVar:integer);
private
//
public
//
end;

implementation
uses //the uses
var myLocalVar;

procedure makeThisInstanceX(passMeTheVar:integer);
begin
myLocalVar:=passMeTheVar;
end;

//other procedures using myLocalVar 
//etc to the 
end;

现在在另一个Form中的某个地方，我将这个Frame放到了Design窗格上，有时在一个Form上有两个这样的框架，并在适当的位置声明它等等。每个都是独一无二的：

ThisFlexibleUnit : TFlexibleUnit;
ThatFlexibleUnit : TFlexibleUnit;

当我做一个：

ThisFlexibleUnit.makeThisInstanceX(var1); //want to behave in way "var1"
ThatFlexibleUnit.makeThisInstanceX(var2); //want to behave in way "var2"

它们似乎都共享相同的变量“myLocalVar”。 原则上，我做错了吗？如果这是正确的方法那么这是调试我所拥有的东西（这个问题太大而无法发布），但如果这在原则上不正确那么有没有办法做我建议的事情？ 编辑： 好的，所以这里学到的教训是类定义就是这样。许多类可以放在一个单元中，并且

Type

部分中所有类的所有实例共享该单元的实现部分。