Присвоить форму переменной

Form1
...
ButtonClick();
 begin
 If edit1.text = '1' then a:=1;
 If edit1.text = '2' then a:=2;
 imageload(a);  
end;
 
procedure imageload(a: Integer);
begin
if a = 1 then
Form3.Image1.Picture.LoadFromFile('aaa');
if a = 2 then
Form4.Image1.Picture.LoadFromFile('aaa');
end

Form1
...
ButtonClick();
 begin
 If edit1.text = '1' then a:=Form3;
 If edit1.text = '2' then a:=Form4;
 imageload(a);  
end;
 
 
procedure imageload(a: Integer);
begin
a.Image1.Picture.LoadFromFile('aaa');
end

procedure TForm1.FormCreate(Sender: TObject);
begin
  Forms := TList.Create;
  Forms.Add(TForm2.Create(Application));
  Forms.Add(TForm2.Create(Application));
  Forms.Add(TForm2.Create(Application));
end;

begin
  if TryStrToInt(Edit1.Text, n) and (n >= 0) and (n < Forms.Count) then begin
    f.FileName := ExtractFilePath(ParamStr(0)) + '1.jpg';
    f.Text := 'Какая-то картинка на форме №' + IntToStr(n);
    TForm2(Forms[n]).LoadImage(f);
    TForm2(Forms[n]).Show;
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Forms := TList.Create;
  Forms.Add(TForm2.Create(Application));
  Forms.Add(TForm3.Create(Application));
  
end;

var FormArr:array [0..8] of TForm2;

...
var
 ntab: TImage;
 tab: string;
uses Form2, Form3;
 
....
tab := edit1.text;
 
if tab = '1' then
 begin
 ntab:= form2.Image1;
 end;
if tab = '2' then
 begin
 ntab:= form3.Image1;
 end;
 
ntab.Picture.LoadFromFile(path+'aa.bmp');