Курсовая работа: Объектно-ориентированная разработка программ

uses

Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,

StdCtrls;

type

{ TForm2 }

TForm2 = class(TForm)

Button1: TButton;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

procedure Button1Click(Sender: TObject);

procedure Edit1KeyPress(Sender: TObject; var Key: char);

procedure Edit2KeyPress(Sender: TObject; var Key: char);

procedure Edit3KeyPress(Sender: TObject; var Key: char);

procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);

private

{ private declarations }

public

{ public declarations }

end;

var

Form2: TForm2;

implementation

uses tmain;

{ TForm2 }