Точні науки програмування Delphi 5.0

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

if RadioButton1.Checked=True then begin

Edit7.Enabled:=true;

Edit8.Enabled:=true;

Edit1.Enabled:=false;

Edit2.Enabled:=false;

Edit3.Enabled:=false;

Edit6.Enabled:=true;

Edit6.text:='';

Button1.Enabled:=true;

end;

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

if RadioButton2.Checked=True then begin

Edit7.Enabled:=false;

Edit8.Enabled:=false;

Edit1.Enabled:=true;

Edit2.Enabled:=false;

Edit3.Enabled:=false;

Edit6.Enabled:=true;

Button1.Enabled:=true;

Edit6.text:='';

end;