Detectar enteros y caracteres en un edit

[creus]

Hola a todos,

Necesitaria poder detectar que en un mismo edit me escribieran números enteros y caracteres a la misma vez.
Tengo una ligera idea de como detectar, por ejemplo la vocal 'a', pero no logro realizar la combinación de caracter y númerico a la misma vez.

Adjunto el código para recorrer el edit y detectar 'a'.

Código Delphi [-]
 for index:=1 to length(contra) do
            begin                           
               if (contra[index]) = ('a') then
                  begin
                     vocal:=(vocal+1);
                  end;
             end;

Gracias a todos de nuevo