怎样在自制的OCX控件中执行一段delphi代码？(100分)

现在要在一个OCX控件中提供打印操作，想提供同delphi中的printer的方法一样的方法，如在我的这个ocx中，用
myocx.Canvas.Font.Name:='宋体';
myocx.Canvas.Font.Size :=11;
myocx.BeginDoc
myocx.Canvas.TextOut (100, 100, 'test...');
myocx.EndDoc;
这时候就执行这段delphi代码实现打印？

输出到一个控件再实现print