Código Delphi [-]Randomize; showmessage (inttostr(random(10)+1));
Randomize; showmessage (inttostr(random(10)+1));