type
   varstring = ^string;