[Rjkzy]

Код:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
case CheckBox1.Checked of
  False:
    begin
    Label4.Caption:=('Выкл.');
    Label4.Font.Color:=clRed;
    end;
  True:
    begin
    Label4.Caption:=('Вкл.');
    Label4.Font.Color:=clGreen;
    end;
  end;
end;

пользуйся