Передача фокуса при превышении текста TEdit

В определении формы запишем:

Type
  TForm1 = class(TForm)
  { ... }
private
  procedure WMCommand(var Msg: TWMCommand); message WM_COMMAND;
  { ... }
end;

Затем в секции implementation:

procedure TForm1.WMCommand(var Msg: TWMCommand);
begin
   if Msg.NotifyCode = EN_MAXTEXT then
   begin
      PostMessage(Handle, WM_NEXTDLGCTL,0, 0);
      inherited;
   end;
end;