Incompatable types:'TPropertyEditorClass' and 'Class reference'(25分)

开发一个控件时最后注册时发生错误
在注册属性编辑器时总是报上面那个错误

type
TMyProperty = class(TPropertyEditor);
.......
procedure register;
begin
RegisterCompents('ActiveX',[TMyEdit]);
RegisterPropertyEditor(TypeInfo(string),TMyEdit,'databasename',TMyProperty)//
//就是最后一个参数
end;
end;

不会吧，这么冷漠！！

呵呵，套牢1兄生气了？
不过我简单试了试，没有出现你说得错误啊。
最简单的，把Unit帖给你看。你可以试试。我想可能你其他地方出问题了！
unit Edit1;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, StdCtrls, DesignEditors, DesignIntf;
type
TEdit1 = class(TEdit)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
end;
TMyProperty = class(TPropertyEditor);
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TEdit1]);
RegisterPropertyEditor(TypeInfo(TEdit1),TEdit1,'databasename',TMyProperty);//
end;
end.