高手请进，关于参数传递的问题！

[jiangqiu]

我在Form1中Button1的onclick（）事件中调用Project2.dll中的
procedure ExportToExel(AOwner:TComponent;ExportForm:TForm;Grids:DBGrid)
var
……
memo:TRichEdit;
begin
………………
memo:=TRichedit.Creat(AOwner);
memo.visible:=false;
memo.parent:=ExportForm;//问题出在这里！！！
………………
end;
运行错误：convert erro,can not convert a TFont to a TFont大概是这个意思
我知道是参数传递的问题TForm是子类，当函数中的参数定义为基类，但调用时传递的是子类，这时候子类中定义的成员变量不会传递过去，但是我这里还必须得到Form1,请高手指点，我应该怎么做？

[jiangqiu]

对了，我是这么调用的
在Button的onclick()中
ExportToExcel(self,Form1,Grid1);

[jiangqiu]

有没有什么可能用什么指令通过self得到当前的窗体呢？

[jiangqiu]

我上面说错了，我是说传递过去的是子类

[zousoft]

在Button的onclick()中
ExportToExcel(self,Form1,Grid1);
此时的self就为Button所在窗体名称，如果Button在Form1，那么函数调用完全可以改为
ExportToExcel(self,self,Grid1);

[abcd4321]

不是这个的问题，不行！！！