Trocar o enter por tab no delphi

Trocar o tab pelo enter em um form.

No evento OnKeyPress do formulário.

Digite.
if key=#13 then
begin
        key := #0; 

        Perform(WM_NEXTDLGCTL,0,0);

end;