[ecfisa]

Hola emeritos.

Si lo que buscas es que se muestre como una cadena con los valores "No" o "Si", podes hacer:

Código Delphi [-]
function NoSi(const Value: Boolean): string;
begin
  if Value then
    Result:= 'Si'
  else
    Result:= 'No';
end;

O también, con el mismo resultado:

Código Delphi [-]
function NoSi(const Value: Boolean): string;
const
  CNOSI : array[Boolean] of string =('No', 'Si');
begin
  Result:= CNOSI[Value];
end;

Ejemplo:

Código Delphi [-]
uses DateUtils; // YearOf

...

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(Format('Este %s es un año bisiesto', [LowerCase(NoSi(IsLeapYear(YearOf(Now))))]));
end;

Saludos

Edito: Disculpas duiliosola, no estaba tu mensaje cuando comencé este. Es la misma idea.