Курсовая работа: Информационная система компьютерного клуба

procedure Button2Click(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

Wd, Doc, Rng, Tbl, Xl, Wb, Ws, Ch, Z : Variant;

implementation

{$R *.dfm}

procedure TForm1.Report_WordClick(Sender: TObject);

var I, Rcnt:integer;

begin

/