elegir y concatenar en Delphi 7.0

[Mick]

Me aburro un pelin asi que propongo otra forma de hacerlo, mas escuenta y que utiliza menos codigo una vez compilado (y sin compilar). Eso si, un poco mas ofuscado:

const
 messages: array [0..3] of string= ( '' , 'Sí' , 'No', 'Sí y No' );
begin
 Label1.Caption:= messages[Integer(CheckBox1.Checked) + (Integer(CheckBox2.Checked) SHL 1)];
end;

O esta forma que en realidad es identica a la anterior:

const
 messages: array [0..1] of array [0..1] of string= (  ('' , 'No') , ('Sí', 'Sí y No') );
begin
 Label1.Caption:= messages[Integer(CheckBox1.Checked)][Integer(CheckBox2.Checked)];
end;

Saludos