elegir y concatenar en Delphi 7.0

[[Caral]]

Hola
Me parece asi:

Código Delphi [-]
  if CheckBox1.Checked = True then
   Begin
   Label1.Caption:= 'SI';
   end;
  if CheckBox2.Checked = True then
   Begin
    Label1.Caption:= 'NO';
   end;
   if CheckBox1.Checked and CheckBox2.Checked = True then
   Begin
   Label1.Caption:= 'SI y NO';

Supongo que funcionara, ultimamente no doy una.
Saludos