program TestStringValueForBoolean;
{$MODE OBJFPC}
{$H+}
uses SysUtils;
var
aBoolean :Boolean = False;
begin
TrueBoolStrs := TStringArray.Create('True', 'On', 'Yes', 'はい', 'ใช่', '是', '예', 'כן', 'نعم');
FalseBoolStrs := TStringArray.Create('False', 'Off', 'No', '番号', 'ไม่', '没有', '아니', 'לא', 'لا');
{
SetLength(FalseBoolStrs, 9);
SetLength(TrueBoolStrs, 9);
TrueBoolStrs[0] := 'True';
TrueBoolStrs[1] := 'On';
TrueBoolStrs[2] := 'Yes';
TrueBoolStrs[3] := 'はい';
TrueBoolStrs[4] := 'ใช่';
TrueBoolStrs[5] := '是';
TrueBoolStrs[6] := '예';
TrueBoolStrs[7] := 'כן';
TrueBoolStrs[8] := 'نعم';
FalseBoolStrs[0] := 'False';
FalseBoolStrs[1] := 'Off';
FalseBoolStrs[2] := 'No';
FalseBoolStrs[3] := '番号';
FalseBoolStrs[4] := 'ไม่';
FalseBoolStrs[5] := '没有';
FalseBoolStrs[6] := '아니';
FalseBoolStrs[7] := 'לא';
FalseBoolStrs[8] := 'لا';
}
if TryStrToBool('1', aBoolean) then WriteLn(aBoolean) else WriteLn('error');
if TryStrToBool('0', aBoolean) then WriteLn(aBoolean) else WriteLn('error');
if TryStrToBool('true', aBoolean) then WriteLn(aBoolean) else WriteLn('error');
if TryStrToBool('false', aBoolean) then WriteLn(aBoolean) else WriteLn('error');
if TryStrToBool('on', aBoolean) then WriteLn(aBoolean) else WriteLn('error');
if TryStrToBool('off', aBoolean) then WriteLn(aBoolean) else WriteLn('error');
if TryStrToBool('yes', aBoolean) then WriteLn(aBoolean) else WriteLn('error');
if TryStrToBool('no', aBoolean) then WriteLn(aBoolean) else WriteLn('error');
if TryStrToBool('はい', aBoolean) then WriteLn(aBoolean) else WriteLn('error');
if TryStrToBool('番号', aBoolean) then WriteLn(aBoolean) else WriteLn('error');
if TryStrToBool('ใช่', aBoolean) then WriteLn(aBoolean) else WriteLn('error');
if TryStrToBool('ไม่', aBoolean) then WriteLn(aBoolean) else WriteLn('error');
if TryStrToBool('是', aBoolean) then WriteLn(aBoolean) else WriteLn('error');
if TryStrToBool('没有', aBoolean) then WriteLn(aBoolean) else WriteLn('error');
if TryStrToBool('예', aBoolean) then WriteLn(aBoolean) else WriteLn('error');
if TryStrToBool('아니', aBoolean) then WriteLn(aBoolean) else WriteLn('error');
if TryStrToBool('כן', aBoolean) then WriteLn(aBoolean) else WriteLn('error');
if TryStrToBool('לא', aBoolean) then WriteLn(aBoolean) else WriteLn('error');
if TryStrToBool('نعم', aBoolean) then WriteLn(aBoolean) else WriteLn('error');
if TryStrToBool('لا', aBoolean) then WriteLn(aBoolean) else WriteLn('error');
end.