大家进来看看，散分！！！！

[jsw0525]

各位兄弟！
我随便写了一点点，可是总是无法安装进去。
谢谢各位指点了。
原代码如下：
unit QMy_Memo;

interface

uses
SysUtils, Classes, QControls, QStdCtrls;

type
TMy_Memo = class(TMemo)
private
FXm:String;
FXh:String;
FDh:string;
procedure SetXm(value:string);
procedure SetXh(value:string);
procedure SetDh(value:String);

{ Private declarations }
protected
{ Protected declarations }
public
constructor Create(AOwner: TComponent);override;
destructor Destroy; override;
:
{ Public declarations }
published
property Xm:string read FXm write SetXm;
property Xh:string read FXh write SetXh;
property Dh:string read FDh write setDh;
{ Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('My_Pleate', [TMy_Memo]);
end;

procedure TMy_Memo.SetXm(value:string);
begin
if FXm<>value then
FXm:=value;

end;

procedure TMy_Memo.SetXh(value:string);
begin
if FXh<> value then
FXh:=value;
end;

procedure TMy_Memo.SetDh(value:string);
begin
if FDh<> value then
FDh:= value;
end;


constructor TMy_Memo.Create(AOwner: TComponent);
begin
Inherited Create(AOwner);
end;

destructor TMy_Memo.Destroy;
begin
inherited;
end;

end.

[jsw0525]

真的就没人知道呀

[jsw0525]

没有一个人愿意开口吗？
这还有什么意思呢，各位大虾，帮个忙呀