Контрольная работа: Системное программирование

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, ExtCtrls, Buttons;

type

Tforma = class(TForm)

ScrollBox1: TScrollBox;

gbone: TGroupBox;

rbone: TRadioButton;

rbtwo: TRadioButton;

rbthree: TRadioButton;

gbtwo: TGroupBox;

rbfour: TRadioButton;

rbfive: TRadioButton;

rbsix: TRadioButton;

gbthree: TGroupBox;

rbseven: TRadioButton;

rbeight: TRadioButton;

rbnine: TRadioButton;

ok: TBitBtn;

BitBtn2: TBitBtn;

Panel1: TPanel;

lbtext: TLabel;

procedure okClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

x,y,z,w:byte;

end;

var