Kaç kez atılacığını kullanıcının belirleyeceği 2 zarın aynı anda atılması sonucunda sonuçları gösteren kod.

procedure TForm1.Button1Click(Sender: TObject);
var
 i,a,z1,z2:integer;
begin
 a:=strtoint(edit1.text);   // ' a ' kullanıcının girdiği zar atışının sayısı
 For i:=1 to a do
 begin
  z1:=randomrange(1,7);    //  randomrange komutunda alt sınır dahil fakat üst sınır dahil olmadığından 7 aldık
  z2:=RandomRange(1,7);
  memo1.lines.Add(inttostr(z1)+' '+inttostr(z2));
 end;
end;
end.