Wybierz znak z ciągu w Delphi

var
	sA : String;
    cA : Char;
    

sA := 'Name';
cA := A[1]; //This selects the first letter of your string
URANIUM235