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.