change color based on sex

begin
   form1.color:= clGray;  //whatever default colour you want the form to be
   
   if form1.CheckBox1.Checked := True then
   begin
       form1.CheckBox2.Checked := False;  //make sure you don't have both boxes checked
      form1.color := clBlue;
   end
   else if
   begin
     form1.CheckboxBox2.Checked := True then
     form1.CheckBox1.Checked := False;
     form1.color := clred;
   end;
    

The above allows the form to keep it's default colour if no checkbox is ticked.

If you wished, in the form OnClose event, you could untick both checkboxes as above so that if the form is called again, everything is in it's default state.

Hi,
I think it should be
   if form1.CheckBox1.Checked = True then  (ie, just an = rather than :=).
Derek.

I used the following script instead of " else if" and it worked fine. Thank you

procedure Form1_CheckBox1_OnClick (Sender: TObject);
begin
      form1.color:= clBtnFace;

   if
   form1.CheckBox1.Checked = True then
   begin
       form1.CheckBox2.Checked := False;
      form1.color := clBlue;
   end;

end;

  procedure Form1_CheckBox2_OnClick (Sender: TObject);
begin
      form1.color:= clBtnFace;

   if
   form1.CheckBox2.Checked = True then
   begin
       form1.CheckBox1.Checked := False;
      form1.color := clFuchsia;
   end;
end;