Por ENTER cambiar a otro control

Con estas funciones podemos pasar de un control al siguiente usando la tecla Enter // De paso validamos que el campo edit procedure Tfrmempresa.edtNitKeyPress(Sender: TObject; var Key: Char); begin    if Key = #13 then    begin       Key := #0;       Perform(WM_NEXTDLGCTL, 0, 0);    end;    if ( StrScan(‘0123456789-‘,Key) <> nil ) or ( Key = Char(VK_BACK) ) then       key:=key…