{ É necessário estar declarado SysUtils na seção uses.
 
 Em versões mais recentes declare System.SysUtils. }
 
// Função própria do Delphi: BoolToStr
// Parametro B: Valor booleano a ser testado.
// Parametro UseBoolStrs: Indica se você quer um testo personalisado.
 
// Exemplos de uso
procedure TForm1.Button1Click(Sender: TObject);
var
  vTeste : Boolean;
begin
  vTeste := True;
 
  // Conversão padrão: 0 = False, -1 = True
  ShowMessage( BoolToStr(vTeste, False));
 
  // Conversão com texto padrão: False e True
  ShowMessage( BoolToStr(vTeste, True));
 
  // Convertendo com texto personalisado
  TrueBoolStrs := ['Verdadeiro'];
  FalseBoolStrs := ['Falso'];
  ShowMessage( BoolToStr(vTeste , True ) );
end;