如何将d5,d6的控件修改为d7?(40分)

原来我收藏了一个这方面的帖子，但把它搞掉了

{$IFDEF VER140}
DesignIntf, DesignEditors;
{$ELSE}
DsgnIntf;
{$ENDIF}

{$IFDEF VER140}
procedure EditProperty(const Prop: IProperty
var Continue: Boolean)
override;
{$ELSE}
procedure EditProperty(PropertyEditor: TPropertyEditor
var Continue,
FreeEditor: Boolean)
override;
{$ENDIF}

{$IFDEF VER140}
procedure TdhcgComponentEditor.EditProperty(const Prop: IProperty
var Continue: Boolean);
var
PropName: string;
begin
PropName := Prop.GetName;
if (CompareText(PropName, 'Headers') = 0) then begin
Prop.Edit;
Continue := False;
end;
end;
{$ELSE}
procedure TdhcgComponentEditor.EditProperty(PropertyEditor: TPropertyEditor
var Continue,
FreeEditor: Boolean);
var
PropName: string;
begin
PropName := PropertyEditor.GetName;
if (CompareText(PropName, 'Headers') = 0) then begin
PropertyEditor.Edit;
Continue := False;
end;
end;
{$ENDIF}

?????????????????????????

直接使用D7的，hehe

有源码的控件，直接编译，看那里有问题，一步步改。

多人接受答案了。