Codigo ascii

[rafita]

Hola Luli,

quizá fuese suficiente con controlar el evento OnKeyPress del Edit o MaskEdit, limitando los caracteres que permites:

procedure SoloNumeros(Sender: TObject; var Key: Char);
begin
  if not (key in ['0'..'9',#8]) then key:=#0;  // sólo admito número y la tecla de retroceso
end;

// if not (key in ['a'..'f','1'..'5',#8]) --> solo letras de la "a" a la "f" y números del "1" al "5".

Si deseas más restricciones, como obligar a que el primer caracter sea una letra, puedes utilizar las mascaras del MaskEdit, validarlo al salir del control, o cambiar los caracteres que admites según los que ya tengas:

procedure Form1.Edit1OnkeyPress(Sender: TObject; var Key: Char);
begin
   if Length(Edit1.Text)<2 then
	  if not (key in ['a'..'e','j'..'m',#8]) then key:=#0	  
   else
	  if not (key in ['0'..'9',#8]) then key:=#0;
end;
// los dos primeros caracteres deben ser una de estas letras: a, b, c, d, e, j, k, l, m
// el resto serán sólo numeros

Saludos