Не могу реализовать пример программы с учебника

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    White: TLabel;
    Black: TLabel;
    o1: TShape;
    o2: TShape;
    o3: TShape;
    o4: TShape;
    o5: TShape;
    o6: TShape;
    o7: TShape;
    o8: TShape;
    o9: TShape;
    o10: TShape;
    procedure FormCreate(Sender: TObject);
    procedure BlackDragOver(Sender, Source: TObject; x, y: integer;
    State:TDragState; var accept: boolean);
    procedure o1EndDrag (Sender, Target: TObject; x, y: integer);
    end;
 
var
  Form1: TForm1; n: integer;
  a: array[1..10] of TShape;
  b, w: byte;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
b:=0; w:=0;
Black.Height:=80; Black.Width:=80;
Black.Hint:='b';
White.Height:=80; White.Width:=80;
White.Hint:='w';
a[1]:=o1; a[2]:=o2; a[3]:=o3;
a[4]:=o4; a[5]:=o5; a[6]:=o6;
a[7]:=o7; a[8]:=o8; a[9]:=o9;
a[10]:=o10;
randomize;
n:=random(9)+2;
For i:=n+1 to 10 do
With a[i] do Visible:=False;
For i:=1 to n do
With a[i] do
Begin
If random(2)=0
Then Begin
Brush.Color:=clBlack;
Hint:='b'
end
else Begin
Brush.Color:=clWhite;
Hint:='w'
End;
DragMode:=dmAutomatic
end;
 
end;
    procedure TForm1.BlackDragOver(Sender, Source: TObject; x, y: integer;
    State:TDragState; var accept: boolean);
    begin
    if (Sender is TLabel) and (Source is TShape)
    then
    accept:=((sender as TLabel).Hint=(Source as TShape).Hint)
    end;
procedure TForm1.o1EndDrag (Sender, Target: TObject; x, y: integer);
var s: String;
begin
if Target <> Nil Then
Begin
If (Target as TLabel).Name='Black'
Then begin b:=b+1; str(b,s);
(Target as TLabel).Caption:='Чернызх'+#10+#13+s
end
else begin w:=w+1; str(w,s);
 (Target as TLabel).Caption:='Белых'+#10+#13+s
 end;
 (Sender as TShape).Visible:=False;
 end;
 end;
 end.

Black.AutoSize := false;
White.AutoSize := false;
Black.Font.Color := clWhite;