unit _riser;
interface
uses system;
usescopy objname;
usescopy _addtocable;
var
   Text:String;(*'Текст'*)
   Elevation:Double;(*'Отметка'*)
   RiserName:String;(*'Имя стояка'*)
implementation
begin
   Text:='??';
   Elevation:=0;
   RiserName:='??';
end.