Unit TQuestn

mik 12/12/97, modified from winroll of Sean Hsieh, in love with MakeObjectInstance call, can do otherway but this is the best

Classes

TQuestion -

Functions

Register -

Types

TShapes

Constants

counter

Variables


Functions


procedure Register;


Types


TShapes = (sSquare, striangle,sEllipse);

Constants

counter = 0


Variables