Курсовая работа: Разработка класса прямоугольников

Editx: TEdit;

Edity: TEdit;

Editw: TEdit;

Edith: TEdit;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Button3: TButton;

Button4: TButton;

Button5: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure ListBox1Click(Sender: TObject);

procedure FormPaint(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

function min (a, b : integer) : integer;

function max (a, b : integer) : integer;

procedure roll(var a, b : integer);

procedure Button5Click(Sender: TObject);

private

{ Private declarations }

s : stack;

public

{ Public declarations }

end;

var