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