uses System.SysUtils, System.Character;
var
C1, C2: Char;
IsLetterC, IsNumberC, IsInList: Boolean;
SymbolList: string;
begin
C1 := 'A';
IsLetterC := TCharacter.IsLetter(C1);
//IsLetterC is True
IsNumberC := TCharacter.IsDigit(C1);
//IsNumberC is False
SymbolList := '@#$%^&*';
C2 := '$';
IsInList := SymbolList.Contains(C2);
//IsInList is True
WriteLn('isLetter is ', IsLetterC);
WriteLn('isNumber is ', IsNumberC);
WriteLn('isInList is ', IsInList);
end.