[marcoszorrilla]

Código Delphi [-]
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Math;
procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
Edit1.Text:=IntToStr(RandomRange(1, 10));
end;

Un Saludo.