procedure TForm2.D20MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('40');
End;

procedure TForm2.D20MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('40');
End;

procedure TForm2.D1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('2');
End;

procedure TForm2.D1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('2');
End;

procedure TForm2.D18MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('36');
End;

procedure TForm2.D18MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('36');
End;

procedure TForm2.D4MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('8');
End;

procedure TForm2.D4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('8');
End;

procedure TForm2.D13MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('26');
End;

procedure TForm2.D13MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('26');
End;

procedure TForm2.D6MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('12');
End;

procedure TForm2.D6MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('12');
End;

procedure TForm2.D10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('20');
End;

procedure TForm2.D10MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('20');
End;

procedure TForm2.D15MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('30');
End;

procedure TForm2.D15MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('30');
End;

procedure TForm2.D2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('4');
End;

procedure TForm2.D2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('4');
End;

procedure TForm2.D17MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('34');
End;

procedure TForm2.D17MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('34');
End;

procedure TForm2.D3MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('6');
End;

procedure TForm2.D3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('6');
End;

procedure TForm2.D19MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('38');
End;

procedure TForm2.D19MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('38');
End;

procedure TForm2.D7MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('14');
End;

procedure TForm2.D7MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('14');
End;

procedure TForm2.D16MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('32');
End;

procedure TForm2.D16MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('32');
End;

procedure TForm2.D8MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('16');
End;

procedure TForm2.D8MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('16');
End;

procedure TForm2.D11MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('22');
End;

procedure TForm2.D11MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('22');
End;

procedure TForm2.D14MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('28');
End;

procedure TForm2.D14MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('28');
End;

procedure TForm2.D9MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('18');
End;

procedure TForm2.D9MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('18');
End;

procedure TForm2.D12MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('24');
End;

procedure TForm2.D12MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('24');
End;

procedure TForm2.D5MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('10');
End;

procedure TForm2.D5MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('10');
End;

procedure TForm2.T20MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('60');
End;

procedure TForm2.T20MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('60');
End;

procedure TForm2.T1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('3');
End;

procedure TForm2.T1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('3');
End;

procedure TForm2.T18MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('54');
End;

procedure TForm2.T18MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('54');
End;

procedure TForm2.T4MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('12');
End;

procedure TForm2.T4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('12');
End;

procedure TForm2.T13MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('39');
End;

procedure TForm2.T13MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('39');
End;

procedure TForm2.T6MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('18');
End;

procedure TForm2.T6MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('18');
End;

procedure TForm2.T10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('30');
End;

procedure TForm2.T10MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('30');
End;

procedure TForm2.T15MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('45');
End;

procedure TForm2.T15MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('45');
End;

procedure TForm2.T2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('4');
End;

procedure TForm2.T2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('4');
End;

procedure TForm2.T17MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('51');
End;

procedure TForm2.T17MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('51');
End;

procedure TForm2.T3MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('9');
End;

procedure TForm2.T3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('9');
End;

procedure TForm2.T19MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('57');
End;

procedure TForm2.T19MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('57');
End;

procedure TForm2.T7MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('21');
End;

procedure TForm2.T7MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('21');
End;

procedure TForm2.T16MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('48');
End;

procedure TForm2.T16MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('48');
End;

procedure TForm2.T8MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('24');
End;

procedure TForm2.T8MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('24');
End;

procedure TForm2.T11MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('33');
End;

procedure TForm2.T11MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('33');
End;

procedure TForm2.T14MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('42');
End;

procedure TForm2.T14MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('42');
End;

procedure TForm2.T9MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('27');
End;

procedure TForm2.T9MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('27');
End;

procedure TForm2.T12MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('36');
End;

procedure TForm2.T12MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('36');
End;

procedure TForm2.T5MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('15');
End;

procedure TForm2.T5MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('15');
End;

procedure TForm2.sBULLMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('25');
End;

procedure TForm2.sBULLMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('25');
End;

procedure TForm2.BULLsEYEMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('50');
End;

procedure TForm2.BULLsEYEMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('50');
End;

procedure TForm2.S20MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('20');
End;

procedure TForm2.S20MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('20');
End;

procedure TForm2.S1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('1');
End;

procedure TForm2.S1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('1');
End;

procedure TForm2.S18MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('18');
End;

procedure TForm2.S18MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('18');
End;

procedure TForm2.S4MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('4');
End;

procedure TForm2.S4MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('4');
End;

procedure TForm2.S13MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('13');
End;

procedure TForm2.S13MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('13');
End;

procedure TForm2.S6MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('6');
End;

procedure TForm2.S6MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('6');
End;

procedure TForm2.S10MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('10');
End;

procedure TForm2.S10MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('10');
End;

procedure TForm2.S15MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('15');
End;

procedure TForm2.S15MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('15');
End;

procedure TForm2.S2MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('2');
End;

procedure TForm2.S2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('2');
End;

procedure TForm2.S17MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('17');
End;

procedure TForm2.S17MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('17');
End;

procedure TForm2.S3MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('3');
End;

procedure TForm2.S3MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('3');
End;

procedure TForm2.S19MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('19');
End;

procedure TForm2.S19MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('19');
End;

procedure TForm2.S7MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('7');
End;

procedure TForm2.S7MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('7');
End;

procedure TForm2.S16MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('16');
End;

procedure TForm2.S16MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('16');
End;

procedure TForm2.S8MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('8');
End;

procedure TForm2.S8MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('8');
End;

procedure TForm2.S11MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('11');
End;

procedure TForm2.S11MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('11');
End;

procedure TForm2.S14MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('14');
End;

procedure TForm2.S14MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('14');
End;

procedure TForm2.S9MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('9');
End;

procedure TForm2.S9MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('9');
End;

procedure TForm2.S12MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('12');
End;

procedure TForm2.S12MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('12');
End;

procedure TForm2.S5MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('5');
End;

procedure TForm2.S5MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('5');
End;

procedure TForm2.S20SMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('20');
End;

procedure TForm2.S20SMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('20');
End;

procedure TForm2.S1SMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('1');
End;

procedure TForm2.S1SMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('1');
End;

procedure TForm2.S18SMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('18');
End;

procedure TForm2.S18SMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('18');
End;

procedure TForm2.S4SMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('4');
End;

procedure TForm2.S4SMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('4');
End;

procedure TForm2.S13SMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('13');
End;

procedure TForm2.S13SMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('13');
End;

procedure TForm2.S6SMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('6');
End;

procedure TForm2.S6SMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('6');
End;

procedure TForm2.S10SMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('10');
End;

procedure TForm2.S10SMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('10');
End;

procedure TForm2.S5SMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('5');
End;

procedure TForm2.S5SMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('5');
End;

procedure TForm2.S12SMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('12');
End;

procedure TForm2.S12SMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('12');
End;

procedure TForm2.S9SMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('9');
End;

procedure TForm2.S9SMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('9');
End;

procedure TForm2.S14SMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('14');
End;

procedure TForm2.S14SMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('14');
End;

procedure TForm2.S11SMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('11');
End;

procedure TForm2.S11SMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('11');
End;

procedure TForm2.S8SMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('8');
End;

procedure TForm2.S8SMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('8');
End;

procedure TForm2.S16SMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('16');
End;

procedure TForm2.S16SMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('16');
End;

procedure TForm2.S7SMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('7');
End;

procedure TForm2.S7SMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('7');
End;

procedure TForm2.S19SMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('19');
End;

procedure TForm2.S19SMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('19');
End;

procedure TForm2.S3SMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('3');
End;

procedure TForm2.S3SMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('3');
End;

procedure TForm2.S17SMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('17');
End;

procedure TForm2.S17SMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('17');
End;

procedure TForm2.S2SMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('2');
End;

procedure TForm2.S2SMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('2');
End;

procedure TForm2.S15SMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Score('15');
End;

procedure TForm2.S15SMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
GeefScore('15');
End;

