Фатал еррор, ожидает "БЕГИН" находит"КОНЕЦ ФАЙЛА" ( Лазарь 2.2.0)

 2:
   begin
      image3.Visible:=False;
      image4.Visible:=True;
      stage:=stage+1 ;;
  end;
  3:
   begin
      image4.Visible:=False;
      image1.Visible:=True;
      stage:=0 ;
  end;
end;
  end;
end.

  2:
   begin
      image3.Visible:=False;
      image4.Visible:=True;
      stage:=stage+1 ;;
  end;
  3:
   begin
      image4.Visible:=False;
      image1.Visible:=True;
      stage:=0 ;
  end;
end;
  end;
end.

unit Unit1;
 
{$mode objfpc}{$H+}
 
interface
 
uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls, StdCtrls;
 
type
 
  { TForm1 }
 
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    stage: integer;
    ImgList: TList;
  public
 
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.lfm}
 
{ TForm1 }
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  ImgList := TList.Create;
  ImgList.Add(Image1);
  ImgList.Add(Image2);
  ImgList.Add(Image3);
  ImgList.Add(Image4);
  // Дальше можно добавить в ImgList ещё Image и они тоже будут переключаться без изменения остального кода
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  stage := (stage + 1) mod ImgList.Count;
  for i := 0 to ImgList.Count-1 do
    TImage(ImgList[i]).Visible := i = stage;
end;
 
end.