Здравствуйте, <Аноним>, Вы писали:

А>          new(s1);
А>          s1^:=TStage.Create(nil);

а почему б это не так написать:

  s1 := TStage.Create(nil);