Device has the same structure as an Library
Source position: exec.pas line 954
type PDevice = ^TDevice;