Pero am. por mientras quiero ser el primero


espero que me puedan ayudar.

Código
procedure EstadoE18; var c : char; begin {$ifdef DEBUG} writeln(stderr,'Estado E18'); {$endif} Avanzar; c := Leer; {como pongo el caracter '} if c in '''' then //Mi problema esta aqui begin S := S + c; Avanzar; c := Leer; EstadoT19; end;
En parte de mi codigo de un automata que ando haciendo... lo que quiero esque en el momento en que me lea el caracter ' , me envie a un estado T19... pero no me lo leo porque sabemos que ese caracter sirve para que sea referencia a un texto.
Si yo lo pongo:
Código
if c in ''' then (me pone en rojo igual el then)
Código
if c in '38' then (haciendo referencia al ASCII me sale error)
como podria solucionarlo :S ¿?
