SRL Archive - Delphi/FPC Help and Tutorials

i want the dice to change 10 times

zip=sauce and exe

Tried something like?:

var
  i: Integer;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if(i>10) then
    Exit;
  Form1.Memo1.Lines.Clear;
  Form1.Memo1.Lines.Add(IntToStr(Random(6)+1));
  Form1.Memo2.Lines.Clear;
  Form1.Memo2.Lines.Add(IntToStr(Random(6)+1));
  i:=i+1;
end;

?