Here's how to move immediately to the next control (in the tab order) when the max character length has been met:

procedure TForm1.Edit1Change(Sender: TObject);
begin
   if Sender is TCustomEdit then
   with Sender as TCustomEdit do
   if edit1.MaxLength = GetTextLen then
     self.SelectNext(TCustomEdit(Sender), true, true) ;
end;