Comparar caracteres tecleados con los de una cadena

[marcoszorrilla]

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.