TUserControl.ChangeUser

public procedure TUserControl.ChangeUser(

  IdUser: Integer;

  Login: string;

  Name: string;

  Mail: string;

  Profile: Integer;

  UserExpired: Integer;

  UserDaysSun: Integer;

  Status: Integer;

  Privuser: Boolean

);