Ért itt valaki Lazarus alatti programozáshoz?

Ne haragudj.

Az ezen a linken található videó alapján kezdtem tanulni a Lazarust, a videó alapján 9:49-nél járok, elvileg mindent úgy csinálok ahogy a srác magyaráz, de mégis kiírja, hogy: Msg=Syntax error, "BEGIN" expected but "end of file" found

A kérdező kommentje:

Tudnál esetleg valamilyen elérhetőséget adni? elküldeném a képet is a kódról

Sajnálom, kicsit lefáradtam agyilag a tanulásban...

https://www.youtube.com/watch?v=YPvhc4vJlDw

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;

type

{ TForm1 }

TForm1 = class(TForm)

Button1: TButton;

Memo1: TMemo;

Memo2: TMemo;

procedure Button1Click(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.Button1Click(Sender: TObject);

Var

ii,i1:integer;

begin

I1:= 10;

for ii:=0 to i1 Do

begin

memo1.Lines.Add(InttoStr(ii));

end;

I1:= 10;

for ii:=10 Downto I1 Do

begin

memo2.Lines.Add(InttoStr(ii));

end;

end;