seçme işlemini kendimiz nasıl yapabiliriz?

Var
  MyForm: TclForm;
  But1,But2,But3: TclButton;

Procedure ButClick;
Var
  Ran, Sel, i: Integer;
Begin
  Sel:= TclButton(MyForm.clSender).clTagInt;
  Ran:= clMath.GenerateRandom(0,3);
  
  if Ran = Sel then
    ShowMessage('Kazandın')
  else
    ShowMessage('Kaybettin');
  
End;

Begin
  MyForm:= TclForm.Create(Self);
  
  But1:= MyForm.AddNewButton(MyForm, 'but1', 'Taş');
  But1.Align:= alCenter;
  But1.Align:= alNone;
  But1.Left:= 100;
  But1.clTagInt:= 0;
  MyForm.AddNewEvent(But1, tbeOnClick, 'ButClick');
  But2:= MyForm.AddNewButton(MyForm, 'but2', 'Kağıt');
  But2.Align:= alCenter;
  But2.Align:= alNone;
  But2.Left:= 200;
  But2.clTagInt:= 1;
  MyForm.AddNewEvent(But2, tbeOnClick, 'ButClick');
  But3:= MyForm.AddNewButton(MyForm, 'but3', 'Makas');
  But3.Align:= alCenter;
  But3.Align:= alNone;
  But3.Left:= 300;
  But3.clTagInt:= 2;
  MyForm.AddNewEvent(but3, tbeOnClick, 'ButClick');
  
  MyForm.Run;
End;