[dec]

Hola,

Código Delphi [-]
uses
  Math;

procedure TForm1.Button1Click(Sender: TObject);
var
  numeroAleatorioDelUnoAlCien: Integer;
begin
  RandSeed;
  numeroAleatorioDelUnoAlCien := Math.RandomRange(1, 100);
  ShowMessage( IntToStr(numeroAleatorioDelUnoAlCien) );
end;