Delphi单元局部变量-如何使每个实例唯一?

在下面的单元中,我有一个在实现部分中声明的变量-该单元的本地变量。我还有一个过程,在type部分中声明,它接受一个参数并将该参数赋给相关的局部变量。此tframe的每个实例都通过 passMeTheVar .

我要它做的是让框架的每个实例保持它自己的变量版本,与其他变量不同,并使用该版本定义它的操作方式。然而,似乎正在发生的是,所有实例都使用相同的值,即使我显式地将不同的变量传递给每个实例。

IE:

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;

现在在另一个窗体中的某个位置,我将此框架放到了设计窗格中,有时其中两个框架位于一个窗体上,并在适当的位置声明它,等等。每个框架都是唯一的:

ThisFlexibleUnit : TFlexibleUnit;
ThatFlexibleUnit : TFlexibleUnit;

当我做一个:

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

它们似乎都共享同一个变量“mylocalvar”。

原则上,我这样做是错误的吗?如果这是正确的方法,那就是调试我拥有的东西(这太大了,无法发布),但是如果原则上这是不正确的,那么有没有一种方法可以按照我的建议来做呢?

编辑:

好的,这里学到的教训是,类的定义就是这样的。许多类可以放在一个单元中,并且 Type 共享单元的实施部分。