Erstens solltest du die [.delphi]-Tags verwenden (ohne .)
Aendere diese Zeile
function CharToInt(inp: string): integer;
mal in
function CharToInt(inp: Char): integer;
um. Nachdem deine Funktion CharToInt heisst, sollte sie auch nur einen Char akzeptieren. Ansonsten seh ich im Moment keinen Fehler
Greetz
alcaeus