Не распознаются объекты формы при использовании их в собственной процедуре

procedure CreateStack;
begin
kol:=0;
st:=0; {ñ÷åò÷èê äëÿ ìàññèâîâ Image è Label}
Memo1.Clear;
otstupImage:= 25;
otstupLabel:= 65;
nach:= Nil;      {Çàíîñèì â óêàçàòåëü çíà÷åíèå ïóñòîé ññûëêè}
For j:= 1 to 8 do   {Çàíîñèì â ñòåê 8 ÷èñåë - ýëåìåíòîâ ìàññèâà A}
 
 Begin
    New(d);
    d^.elem:= A[j];
    d^.ss:= nach;
    nach:= d;
    kol:=kol+1; {êîëè÷åñòâî ýëåìåíòîâ ñòåêà}
 End;
label1.Caption:=IntToStr(kol);
 
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, JPEG;
 
type
  pt = ^z;  z = Record elem:integer; ss: pt; End;
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    Button5: TButton;
    CheckBox1: TCheckBox;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button2Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
 
   private
    { Private declarations }
  public
 
     { Public declarations }
  end;
 
   procedure CreateStack; //My procedure
 
 var
  Form1: TForm1;
  kol,st: integer;
  Block: array of TImage;
  Value: array of TLabel;
  delElem: integer;
  d,nach: pt;
   j: byte;
  otstupLabel,
  otstupImage: integer;
 
implementation
 
uses Unit2;
 
{$R *.dfm}