[Lazarus-es] Problema con string y acentos

[Juan Perles]

Quiero comprobar que lo tecleado sobre un campo Edit contenga tan sólo letras, para ello hago una rutina muy sencilla que es la siguiente:
Función comprobar(tecleado :string):bolean;
Const Letras : ['a .. z','A .. Z','á','é','í','ó','ú'];
Var x : integer;
For x :=1 to length(tecleado) do Begin
    If tecleado[x] in letras tren
    Else begin
        Showmessage('hay un carácter extraño');
        Result := false
        Exit;
End;

El error se me produce cuando compiló en la sentencia Letras que me dice:
"Ordinal expresión expected"

Mi pregunta es cómo puedo comprobar que lo tecleado son sólo letras.

Gracias de antemano.



Juan Perles
628.482.007
Enviado desde mi iPad