Malo jednostavnije:
procedure TForm1.Edit1Change(Sender: TObject);
begin
if Length(TEdit(Sender).Text) = 1 then
self.SelectNext(TEdit(sender), true, true);
end;
Samo treba podesiti lepo tab order (edit1.tabodrer = 1, edit2.tabodrer = 2, itd.)
ss.
When something is hard to do, then it's not worth doing.