[Fonoman]

Как сделать так что
procedure TForm1.Button1Click(Sender: TObject);
var x:=Integer;
begin

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
и тут можно было брать переменную с button1
end;