随机投色子（3以上输出赢，反之输出为输）用delphi编程

帮忙
 

追问：要是玩游戏时在加上一个计算玩了多少次的几数牌要怎么做

答案：
procedure TForm1.btnRunClick(Sender: TObject);
var r:integer;
begin
  randomize;
  r:=random(6)+1;
  btnRun.Caption:=inttostr(r);
  if(r>3) then
    Label1.Caption:='WIN'
  else
    Label1.Caption:='LOSE';
end;

上一个：Delphi编程问题，怎么把写好的程序加入注册表，机器下次重启自动运行？愿出100元
下一个：一个delphi7编程问题..