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