tchlp45: corrected the test; it used a non existing method instead of the private one, but this doesn't make a difference in the result (it still fails as it should ^^)

git-svn-id: branches/svenbarth/classhelpers@16844 -

tests/test/tchlp45.pp

@@ -15,5 +15,5 @@ var
   f: TFoo;
 begin
   f := TFoo.Create;
-  f.Test;
+  f.Test1;
 end.