как сделать видимые не видемые картинки

[Ivannikov-Vlad]

function Throw():integer;
begin
Result := Random(6)+1;
e:=result;
Form1.Label4.Caption := IntToStr(Result);
if(cube1.Visible=true)
then cube1.Visible:=false;
if(cube2.Visible=true)
then cube2.Visible:=false;
if(cube3.Visible=true)
then cube3.Visible:=false;
if(cube4.Visible=true)
then cube4.Visible:=false;
if(cube5.Visible=true)
then cube5.Visible:=false;
if(cube6.Visible=true)
then cube6.Visible:=false;
if(e=1) then cube1.Visible:=true;
if(e=2) then cube2.Visible:=true;
if(e=3) then cube3.Visible:=true;
if(e=4) then cube4.Visible:=true;
if(e=5) then cube5.Visible:=true;
if(e=6) then cube6.Visible:=true;

end;

cube1 cube2 cube3 ... это картнки, type:Timage
нужно чтоб нужно чтоб ари запуске они делались невидимыми, а позже, взависимости от числа е та или иная картинка делалась видимой
у меня выдает сообщение undeclared identifier , объясните пожалуйста что не так? и что нужно исправить

[Sibedir]

!!! надо Form1.cube1
Но лучше так:

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.ExtCtrls;

type
  TForm1 = class(TForm)
    cube1: TImage;
    cube2: TImage;
    cube3: TImage;
    cube4: TImage;
    cube5: TImage;
    cube6: TImage;
    Button1: TButton;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    FCubes: array [1..6] of TImage;
  public
    { Public declarations }
    function Throw: Integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function TForm1.Throw: Integer;
var
  i: Integer;
begin
  Result := Random(6)+1;
  Label4.Caption := IntToStr(Result);
  for i := Low(FCubes) to High(FCubes) do
    FCubes[i].Visible := (Result = i);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Randomize;

  FCubes[1] := cube1;
  FCubes[2] := cube2;
  FCubes[3] := cube3;
  FCubes[4] := cube4;
  FCubes[5] := cube5;
  FCubes[6] := cube6;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Throw;
end;

end.