tUser

type tUser = packed record

  Type_of_login: tLogin_type;

  Pid: tPid;

  Device: tDevice_name;

  Tty_name: string;

  Login_time: tTime;

  User_name: tUser_name;

  Host_name: tHost_name;

  IP_Address: tIP_Address;

end;