String i Char

Wybieram z Stringa jedną literę i chcę uzyskać jej kod ASCII.
funkcja Copy zwraca Stringa, a Ord pracuje na Char.
Czy jest jakiś sposób uzyskania ze Stringa kodu ASCII, lub zamiana String na Char ?

var
S:String;

begin
if S[NR_ZNAKU] = 'h' then ...
end;