My first upload work. . Please advise. . . (号)

Unit yaohaoqiu;

Interface

Uses Windows, Messages, Sysutils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Stdctrls, Spins

type TForm1 = class (TForm) Button1: TButton; SpinEdit1: TSpinEdit; SpinEdit2: TSpinEdit; Label1: TLabel; Label2: TLabel; ListBox1: TListBox; Button2: TButton; Label3: TLabel; procedure Button1Click (Sender: TObject); procedure Button2Click ( Sender: TOBJECT); private {private declarations}

Var Form1: TFORM1;

IMPLEMentation

{$ R * .dfm}

Procedure TForm1.Button1Click (Sender: Tobject); VAR i, J, R, L: Integer; S: String; All: Array [0..1000] of integer; // This array uses the random number RESULT: ARRAY [0..1000] OF INTEGER; // This array uses Begin L: = label3.height; if spinedit1.value

Procedure TFORM1.BUTTON2CLICK (Sender: TOBJECT); beginclose;

End.

Runtime:

Enter the result:

Recycling the result: