delphi BoolToStr函数使用

delphi BoolToStr函数使用
procedure TForm1.Button1Click(Sender: TObject);
var
 b: Boolean;
 s: string;
begin
 b := True;
 s := BoolToStr(b);
 ShowMessage(s);         {-1}

 b := False;
 s := BoolToStr(b);
 ShowMessage(s);         {0}

 b := True;
 s := BoolToStr(b, True);
 ShowMessage(s);         {True}

 b := False;
 s := BoolToStr(b, True);
 ShowMessage(s);         {False}

  Show(BoolToStr(3 < 30, True));

  Show(BoolToStr(12 = 10, True));

end;