델퍼드가 추첨을 할 거야! ! !

프로그램 TForm 1. Button 1Click (보낸 사람: to object);

변수를 정의합니다

Rname: 배열 [0..9] 의 문자열;

시작

Rname[0] :=' 장삼';

Rname[ 1] :=' 이사';

Rname[2] :=' 왕오';

Rname[3] :=' 류란';

Rname[4] :=' 리치';

Rname[5] :=' 거북이';

Rname[6] :=' 주 9';

Rname [7]: =' primaryone';

Rname[8] :=' 대학교 2 학년';

Rname[9] :=' 셋째';

편집1. 텍스트: = rname [random (10)];

끝;