当然，在该单元的use列表中应当将tfrmtest1、tfrmtest2以及tfrmtest3所在的单元包含进来。而tfrmtest1的实现可以象这样：
tfrmtest1 = class(tmybaseform)
protected
function gettitle: pchar; override;
end;
function tfrmtest1.gettitle: pchar;
begin
result := ‘hello from tfrmtest1’；
end;
末了，别忘了将getclasscount和getclassbyindex加到exports列表中。然后，build该dll工程的时候，请将project option-package 中的”使用运行包use runtime package”打勾。至于具体的原因后面讲。
至此，dll方面的工作告一段落。
第三步，主程序驱动引擎的实现：
