{ É necessário estar declarado SysUtils na seção uses.
 
 Em versões mais recentes declare System.SysUtils. }
 
// Função própria do Delphi: StrToBool
// Parametro S: Texto a ser convertido.
 
// Exemplos de uso
procedure TForm1.Button1Click(Sender: TObject);
var
  vTeste : String;
begin
  // Conversão padrão: 0 = False, -1 = True
  vTeste := '-1';
  if StrToBool(vTeste) then
    ShowMessage('True')
  else
    ShowMessage('False');
 
  // Conversão com texto padrão: False e True
  vTeste := 'False';
  if StrToBool(vTeste) then
    ShowMessage('True')
  else
    ShowMessage('False');
 
 
  // Convertendo com texto personalisado
  TrueBoolStrs := ['Verdadeiro'];
  FalseBoolStrs := ['Falso'];
 
  vTeste := 'Verdadeiro';
  if StrToBool(vTeste) then
    ShowMessage('True')
  else
    ShowMessage('False');
end;