Курсовая работа: Програмування в Delphi

procedure Button2Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

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

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

Var

k,km,m : Integer;

Sk,Skm : String;

procedure TForm1.FormCreate(Sender: TObject);

begin

Memo1.Clear;

Memo2.Clear;

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Memo1.ReadOnly := True;

Memo2.ReadOnly := True;

Edit2.ReadOnly := True;

Edit3.ReadOnly := True;

k := 1;

m := 0;

Label3.Caption := '';