Замена форм

Image1.Click:=Form2.show;

Image1.Click:=Image1.Picture.LoadFromFile('1.jpg');

Image1.Click:=Image1.Picture.LoadFromFile('1.jpg');

Image1.Click:=Image1.Picture.LoadFromFile('2.jpg');

var
a:integer=1;//глобальная переменная
....
begin
.....
Image1.Click:=Image2.Picture.LoadFromFile(IntToStr(a)+'.jpg');
inc(a);
.....
end

procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;//глобальная переменная
begin
Image1.Picture.LoadFromFile(IntToStr(a)+'.jpg');
inc(a);
end;

Image2.Picture.LoadFromFile(IntToStr(a)+'.jpg');

Image2.Picture.LoadFromFile('1.jpg');

procedure TForm1.Button1Click(Sender: TObject);
begin
Image1.Picture.LoadFromFile(IntToStr(a)+'.jpg');
inc(a);
end;

Path:= ExtractFilePath(ParamStr(0));

implementation
 
var
  path: string;
 
.....
// старт фотмы
begin
  path:= ExtractFilePath(ParamStr(0)) + 'images\';
end;

LoadFromFile(path + 'имя картинки, которое формируется динамически');

var
  Form1: TForm1;
  path: string;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
image1.LoadFromFile(path + 'имя картинки, которое формируется динамически');
 
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
path:= ExtractFilePath(ParamStr(0)) + 'images\';
end;
 
end.

procedure TForm1.FormCreate(Sender: TObject);
begin
path:= ExtractFilePath(Application.ExeName) + 'images\';
end;

const
  N = 33;
  a: array[1..N] of Char = ('А','Б','В','Г','Д','Е','Ё','Ж','З','И','Й','К','Л','М','Н','О','П','Р','С','Т',
                             'У','Ф','Х','Ц','Ч','Ш','Щ','Ъ','Ы','Ь','Э','Ю','Я');
  // ЗДЕСЬ
  names: array[1..N] of string = ('Апельсин','Банка','Вода','Гвоздь','Доска','Е','Ё','Ж','З','И','Й','К','Л',
                                  'М','Н','О','П','Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ъ','Ы','Ь','Э','Ю','Я');

procedure TForm1.ShowPicture;
var
  FN: string;
begin
  Label1.Caption:= a[L];
  Label2.Caption:= names[L];        // ЗДЕСЬ
  FN:= path + a[L] + '.jpg';
  if FileExists(FN) then Image1.Picture.LoadFromFile(FN) else Image1.Picture:= nil;
end;