Var
  Zar: Integer;
  Order: Integer;
  Cac: String;
  BBut: TclButton;
Begin
  //Aynı kodları tekrar tekrar yazmaya gerek yok,
  // Zar için bir rasgelelelik ayarlayın.
  
  Cac:= Copy(TclButton(LastSender).Name, 3,2);
  // but1, but2 diye isimlendirdiğini varsayıyorum, kendine göre modifiye edebilirsin
  
  // Aslında burda LastSender, burda sondan bir önceki tıklamadır
  // Her buton click olayının sonunda buna atama yaparsanız erişebilirsiniz
  // Msl: LastSender:= MyForm.clSender;
  
  Order:= IntToStr(Cac);
  
  Order:= Order +Zar;
  
  Cac:= 'but'+IntToStr(Order);
  
  BBut:= MyForm.clFindComponent(Cac);
  
  clDoClick(BBut);
End;