В чем ошибка в программе? Ругается на 'bsHorizontal'

unit brustyle_;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForml = class(TForm)
procedure FormPaint(Sender: TObject);
private
{ Private declarations}
public
{ Public declarations }
end;
var
Forml: TForm1;
implementation
{$R *.DFM}
// перерисовка формы
procedure TForml.FormPaint(Sender: TObject);
const
bsName: array[1..8] of string =('bsSolid','bsClear1,'bsHorizontal','bsVertical','bsFDiagorial','bsBDiagonal',
'bsCross','bsDiagCross');
var
x,y: integer; // координаты левого верхнего угла прямоугольника
w,h: integer; // ширина и высота прямоугольника
bs: TBrushStyle;// стиль заполнения области
k: integer; // номер стиля заполнения
i,j: Integer;
begin
w:=40; h:=40; // размер области (прямоугольника!
y:=20;
for i:=l to 2 do
begin
x:=10;
for J:-l to 4 do
k:=j + (i-l)M; // номер сгиля заполнения
case k of
1: bs:= bsSolid;
2: bs:= bsClear;
3: bs:= bsHorizontal;
4: bs:= bsVertical;
5: bs:= bsFDiagonal;
6: bs:= bsBDiagonal;
7: bs:= bsCross;
8: bs:= bsDiagCross;
end;
// вывод прямоугольника
Canvas.Brush.Color := clGreen; // цвет закрашивания — зеленый
Canvas.Brush.Style := bs; // стиль закрашивания
Canvas.Rectangle(x,y,x+w,y+h);
// вывод названия стиля
Canvas.Brush.Style := bsClear;
Canvas.TextOut(x, y-15, bsName[k]); // вывод названия стиля
x := x+w+30;
end;
у := y+h+30;
end;
end;
end.

procedure TForm1.FormPaint(Sender: TObject);
const
bsName: array[1..8] of string =('bsSolid','bsClear1','bsHorizontal','bsVertical',
                                'bsFDiagorial','bsBDiagonal','bsCross','bsDiagCross');
var
x,y: integer; // координаты левого верхнего угла прямоугольника
w,h: integer; // ширина и высота прямоугольника
bs: TBrushStyle;// стиль заполнения области
k: integer; // номер стиля заполнения
i,j: Integer;
begin
bs:=bsClear;
w:=40; h:=40; // размер области (прямоугольника!
y:=20;
for i:=1 to 2 do
 begin
  x:=10;
  for J:=1 to 4 do
   begin
    k:=j + (i-1)*4; // номер стиля заполнения
    case k of
    1: bs:= bsSolid;
    2: bs:= bsClear;
    3: bs:= bsHorizontal;
    4: bs:= bsVertical;
    5: bs:= bsFDiagonal;
    6: bs:= bsBDiagonal;
    7: bs:= bsCross;
    8: bs:= bsDiagCross;
    end;
    // вывод прямоугольника
    Canvas.Brush.Color := clGreen; // цвет закрашивания — зеленый
    Canvas.Brush.Style := bs; // стиль закрашивания
    Canvas.Rectangle(x,y,x+w,y+h);
    // вывод названия стиля
    Canvas.Brush.Style := bsClear;
    Canvas.TextOut(x, y-15, bsName[k]); // вывод названия стиля
    x := x+w+30;
   end;
  y := y+h+30;
 end;
end;