delphi中怎么取出字符串中单个char的ascii码值？

获取ASCII值使用函数ord，获取字符串里面的某个字符用数组的语法，例如你的定义可以使用下面的语句：
writeln(ord(s[1]));

var
S,a:string;
begin
a:='Good!';
S:=IntToHex(Ord(a[n]),2);//n就是你要输出的字母的位置,如'G':n=1
showmessage(S);
end;