Randg fonksiyonu (randg function example) ile rastgele veri üretmek.

procedure TForm1.Button1Click(Sender: TObject);
var
 mu,sigma:Extended;
 i,n:integer;
 x:double;
begin
 randomize;
 mu:=strtoint(edit1.text);
 sigma:=strtoint(edit2.Text);
 n:=strtoint(edit3.text);
  for i:=0 to n-1 do
  begin
   x:=randg(mu,sigma);
   memo1.lines.add(formatfloat('0.###',x));
  end;
end;

end.

Stringgrid,button example. Colcount,Row Count

procedure TForm1.Button1Click(Sender: TObject);
var
r,c,j,i:integer;
begin
r:=strtoint(edit1.text);
c:=strtoint(edit2.text);
StringGrid1.ColCount:=c+1;
StringGrid1.RowCount:=r+1;
for i:=1 to c do
 begin
  for j:=1 to r  do
  begin
  if (i+j)>r+2  StringGrid1.Cells[i,j]:=inttostr((i+j)-1);
  end;
 end;
end;
end.

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.