1 unit objroot; 2 interface 3 uses system; 4 var 5 Plan_Scale:GDBDouble; 6 implementation 7 begin 8 Plan_Scale:=0.1; 9 end. 10