unit DEVICE_CABLE_MARK;
interface
uses system;
var
   CableName:String;(*'Обозначение'*)
   CableMaterial:String;(*'Материал'*)
   CableLength:Double;(*'Длинна'*)
implementation
begin
     CableName:='??';
     CableMaterial:='??';
     CableLength:=0.0;
end.