[Drozh]

Опиши ее как глобальную

Код:

var
  Form1: TForm1;
  X: Integer; {все нижележащие процедуры будут знать о ней}

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
 х := 15;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 X, a: Integer;// локальные переменные a и Х
begin
 X := 5; 
 a := X;
end;

procedure TForm1.Button3Click(Sender: TObject);
var
 b: Integer;
begin
 b := X; // здесь Х=15
end;