Очередная задача в делфи!

var
Form1:TForm1;
ball_a,ball_b:integer;

Procedure Button1Click(Sender:TObject); // Нажатие на кнопку - бросок кубика
var a,b:integer;
begin
Randomize;
a:=1+Random(6); // Генерируем число А - 1 кубик
b:=1+Random(6); // Генерируем число В - 2 кубик
if a>b then ball_a:=ball_a+a+b;
if a<b then ball_b:=ball_b+a+b;
Label1.Caption:=inttostr(a); // Label 1 - Кубик с числом у игрока 1
Label2.Caption:=inttostr(b); // Label 2 - Кубик с числом у игрока 2
Label3.Caption:=inttostr(ball_a); // Label 3 - Очки игрока 1
Label4.Caption:=inttostr(ball_b); // Label 4 - Очки игрока 2
if ball_a>=1001 then ShowMessage('Игрок 1 выйграл');
if ball_b>=1001 then ShowMessage('Игрок 2 выйграл');
if (ball_a>=1001) or (ball_b>=1001) then Clear;
end;
 
Procedure Clear;
begin
Label1.Caption:=''; // Нет числа на кубике 1
Label2.Caption:=''; // Нет числа на кубике 2
ball_a:=0;
ball_b:=0; // 0 очков у игроков
Label3.Caption:='0';
Label4.Caption:='0'; // Label с очками тоже очищаем
end;