求助，关于自定义属性的问题

我在单元内想建立自定义类的自定义属性，代码如下
unit Unit2;
interface
type
myclass=class
private
Fstrname:string;
public
procedure setname(str:string);
published
property ckname:String read Fstrname write setname;
end;
implementation
procedure myclass.setname(str:string);
Fstrname:=str;
end;
end.
但现在怎么也编译通过不了，Delphi7.0提示unkown directive Fstrname，可Fstrname我已经在type中定义了呀。
请大家帮帮忙看看是什么原因？