procedure 

TForm1

.

Button1Click

(

Sender

: 

TObject

);

var

  

result

:

Integer

;

  

i

:

Integer

;

begin

  

Memo1

.

Clear

;

  

for 

i

:=

0 

to 

10 

do

  

begin

      

Randomize

;

      

Result

:=

Random

(

1000

)+

1

;

      

Memo1

.

Lines

.

Add

(

IntToStr

(

result

));

  

end

;

end

;