[KOOL]

у тя нет этой части кода...вот например:

Код:

interface

uses ...;

type
  TForm2 = class(TForm)
     //тут всякие контролы и их процедуры типа
     Button1 : TButton;
     procedure Button1Click(Sender: TObject);
  private
    //тут закрытые переменные процедуры
  public
    //а вот тут открытые для других классов(и форм;) ) переменные и процедуры
    //здесь и нужно объявлять переменную
    eq123 : integer; //без слова var и перед процедурами!!!
  protected
    //а тут защищенные процедуры
  end;

implementation
...