Отсутствует оператор или точка с запятой.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    Button1: TButton;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Timer2: TTimer;
    Timer3: TTimer;
    Timer4: TTimer;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Timer5: TTimer;
    Timer6: TTimer;
    Timer7: TTimer;
    Timer8: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Timer3Timer(Sender: TObject);
    procedure Timer4Timer(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Timer5Timer(Sender: TObject);
    procedure Timer7Timer(Sender: TObject);
    procedure Timer6Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Timer1Timer(Sender: TObject);
var a1:integer;
begin
a1:=Form1.ClientHeight;
if Label1.Top <> a1 then
  Label1.Top:=Label1.Top+1
  else Label1.Top:=-60
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
Timer1.Enabled:=true;
Timer7.Enabled:=true;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer7.Enabled:=true;
Timer2.Enabled:=true;
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
var a2:integer;
begin
a2:=Form1.ClientWidth ;
if Label6.left <> 568 then
  Label6.left:=Label6.left+1
  else Label6.left:=-65
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
Timer7.Enabled:=true;
Timer3.Enabled:=True;
end;
 
procedure TForm1.Timer3Timer(Sender: TObject);
var a3:integer;
begin
a3:=Form1.ClientWidth ;
if Label7.left <> 0 then
  Label7.left:=Label7.left-1
  else Label7.left:=568
end;
 
procedure TForm1.Timer4Timer(Sender: TObject);
var a4:integer;
begin
a4:=Form1.ClientHeight ;
if Label8.top <> 0 then
  Label8.top:=Label8.top-1
  else Label8.top:=480
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
Timer7.Enabled:=true;
Timer4.Enabled:=True;
end;
 
procedure TForm1.Timer5Timer(Sender: TObject);
var lb1,lb2,lb3,lb4:integer;
begin
lb1:=StrToInt(Label1.Caption);
lb2:=StrToInt(Label6.Caption);
lb3:=StrToInt(Label8.Caption);
lb4:=StrToInt(Label7.Caption);
if (lb1>lb2) or (lb3>lb4) then
 
Label9.Color:=clGreen // вот тут выскакивает ошибка описанная выше!!!!!!!!!!!!!!!!!!!!
Label11.Color:=clGreen
Label10.Color:=clRed
Label12.Color:=clRed
else
 
Label11.Color:=clGreen
Label9.Color:=clGreen
Label12.Color:=clRed
Label10.Color:=clRed
 
end;
 
 
procedure TForm1.Timer7Timer(Sender: TObject);
var b1,b2,b3,b4:integer;
begin
b1:=Label7.Left;
b2:=Label1.Top;
b3:=Label6.Left;
b4:=Label8.Top;
if (Label9.Color=clRed) and (b2=152) then
Timer1.Enabled:=false
else
Timer1.Enabled:=true;
 
if (Label12.Color=clRed) and (b1=328) then
Timer3.Enabled:=false
else
Timer3.Enabled:=true;
 
if (Label10.Color=clRed) and (b3=184) then
Timer2.Enabled:=false
else
Timer2.Enabled:=true;
 
if (Label11.Color=clRed) and (b4=280) then
Timer4.Enabled:=false
else
Timer4.Enabled:=true;
 
end;
 
procedure TForm1.Timer6Timer(Sender: TObject);
begin
Label1.Caption:=IntToStr(random(100));
Label6.Caption:=IntToStr(random(100));
Label8.Caption:=IntToStr(random(100));
Label7.Caption:=IntToStr(random(100));
end;
 
end.