[bajge]

Код:

procedure TForm1.N2Click(Sender: TObject);
begin
halt
end;

procedure TForm1.N8Click(Sender: TObject);
begin
n8.Checked:=true;
n9.Checked:=false;
if n8.Checked=true then begin label1.Visible:=true;
edit1.Visible:=false;

end;
end;

procedure TForm1.N9Click(Sender: TObject);
begin
n9.Checked:=true;
n8.Checked:=false;
if n9.Checked=true then begin edit1.Visible:=true;
label1.visible:=false  ;
end;
end;

procedure TForm1.N4Click(Sender: TObject);
begin
if n8.Checked=true then label1.Font.color:=clred else edit1.font.Color:=clred;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
if n8.Checked=true then label1.Font.color:=cllime else edit1.font.Color:=cllime;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
if n8.Checked=true then label1.Font.color:=clyellow else edit1.font.Color:=clyellow;
end;

end.

я чайник.