uses System.SysUtils;

var
  SunIsStar, EarthIsStar: Boolean;
  Str1, Str2: string;
begin
  SunIsStar := True;
  Str1 := BoolToStr(SunIsStar, True);
  //str1 is 'True'

  EarthIsStar := False;
  //without UseBoolStrs: '-1' or '0'
  Str2 := BoolToStr(EarthIsStar);
  //str2 is '0'

  WriteLn('str1 is ', Str1);
  WriteLn('str2 is ', Str2);
end.