[Durbed]

Ya esta solucionado, muchas gracias Neftali el código

Código Delphi [-]
  if (Sender is TEdit) then begin
     if (TEdit(Sender).MaxLength <> 0) then begin
       if (Length(TEdit(Sender).Text) = TEdit(Sender).MaxLength) then begin
         Self.Perform(WM_NEXTDLGCTL, 0{Next}, 0);
       end;
     end;
   end;

Funciono perfectamente