cambiar el foco de control

[[Bicho]]

Hola nuevamente Beatriz

Supongo que habrás visto que el edit tiene la propiedad MaxLength, allí pones el máximo número de carácteres que quieras que se puedan escribir en el edit, luego en el evento OnKeyDown del edit puedes poner algo así:

Código Delphi [-]
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
  if Length(TEdit(Sender).Text) = TEdit(Sender).MaxLength then 
     SelectNext(TEdit(Sender), True, True);
end;

Esto te sirve para hacer el código en común para varios edits, comparas la longitud del edit en el que estés escribiendo si coincide con el valor del maxlength, si coincide llamas a la función SelectNext que pasa el foco al siguiente control coincidiendo con el orden definido en el TabOrder. seguramente habria que pulirlo un poco, pero la idea es esta.

Espero te sirva.

Saludos