Курсовая работа: Информационная система расчетов по договорам

uses Unit3, Unit4;

{$R *.dfm}

// ===================

procedure TForm1. Button6Click (Sender: TObject);

begin

// Остановка программы:

Halt;

end;

procedure TForm1. FormCreate (Sender: TObject);

begin

// Инициализация формы и чтение из файла в стринг грид – из класса

CheckBox1Click(Sender);

Kp. ReadXD(StringGrid1);

Kp. Free;

end;

// ===================

procedure TForm1. RadioButton1Click (Sender: TObject);

begin

// Дублир XD

FormCreate(Sender);

Button8Click(Sender);

end;

// ===================

procedure TForm1. RadioButton2Click (Sender: TObject);

begin

// Открытие WTK автоматом из файла

Kp. Clear(StringGrid1); // Очистка грида

// инициал формы WTK

Kp.WTKGr(StringGrid1);