uses System.Character;

var
  C: Char;
  IsUpperC, IsLowerC: Boolean;
begin
  C := 'a';

  IsUpperC := TCharacter.IsUpper(C);
  //IsUpperC is False

  IsLowerC := TCharacter.IsLower(C);
  //IsLowerC is True

  WriteLn('isUpper is ', IsUpperC);
  WriteLn('isLower is ', IsLowerC);
end.