Class Events

[Clown Kiss]

I'm trying to create a class that has events that can be assigned to a
parent object's defined functions. Similar to the OnClick event or the
OnTimer event. I've listed an example of how I create one object
followed by how I create my own object.

TShape *myShape;
myShape = new TShape(Panel1);
myShape->Name = "Shape1";
myShape->Shape = stCircle;
myShape->Parent = Panel1;
myShape->Hint = "PLC Status";
myShape->OnMouseUp = OPCShapeMouseUp; // This is what I want
myShape->OnMouseDown = OPCShapeMouseDown; // This is what I want

This is how I declare and initialize my class:
TmyClass_Env *myClass;
myClass = new TmyClass_Env(MainForm);
myClass->Description = "My Test Class";
myClass->OnMessage = OnMyClassMessage; // This doesn't work

I'm not sure how to declare the OnMessage event within my class. I
would like the OnMessage event to pass an AnsiString that the parent
object can either display in a message box or print to a memo or a log
file. This OnMessage event would fire when called from within a member
function of TmyClass. Thank you for any help!