Comparar caracteres tecleados con los de una cadena
 

Hola a todos.
Necesito comparar los caracteres que voy tecleando con los que ya tengo en una cadena.
La cadena sería, por ejemplo: "ABC123"
Se que se hace en OnKeyPress.
Lo que yo necesito es que solamente se admitan 3 letras y tres numeros en el orden que estan en la cadena.
¿Me podeis ayudar con algo de código?

Si es en el orden que tu indicas, creo que sería mucho más simple utilizar un MaskEdit, con la máscara de edición:>LLL999

O en tiempo de ejecución:

Código Delphi [-]
 procedure TForm1.Button1Click(Sender: TObject);
 begin
 MaskEdit1.EditMask:='>LLL999';
 end;

Un Saludo.