-----------------------------------------------------------------
procedure ClearDevice;
Отменяет связь устройства с текущим принтером. Вызывается SetDevice и Done. Изменяет текущее состояние принтера на pf_Unassociated, что приводит к игнорированию объектом всех вызо- вов Print, пока объект не будет снова связан с принтером.