Fórum Função ou exemplo de sistema de Sorteio #345581

procedure TFrmGestaoRisco.Button1Click(Sender: TObject);
var
  i: integer;
  numero: Array[1..10] of integer;
begin
  Randomize;

  // para pegar apenas um registro de 0 até 10.
  i := Random(10);

  // para pegar dez registro de 0 até 10;
  for i:= 0 to 10 do
  begin
    numero[i] := Random(10);
  end;
end;