Duda sobre FOCO

[karlaoax]

Aqui le hice unas modificaciones para quien necesite mas documentacion del codigo que proporciono vtdeleon, muchas gracias

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Edit1.MaxLength = Length(Trim(Edit1.Text)) then
Perform(WM_NEXTDLGCTL,0,0)
end;
end.