* crash fix

tests/ts010000.pp

@@ -29,6 +29,7 @@ var
    i : longint;
 
 begin
+   object1:=tobject1.create;
    i:=object1.l;
    i:=object1.l2;
    object1.l:=123;

tests/ts010004.pp

@@ -18,5 +18,6 @@ type
    end;
 
 begin
+   c:=tclass1.create;
    c.i:=12;
 end.