Присовение параметров пользователя из другого пользователя
procedure Assign(aUser: TUser); override;