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