100分白送,快请进.....(100分)

我想做一个基本上跟MEMO相同的VCL控件。就是需要改一下他的一些变量，也不
需要增加属性，方法，事件。
大家先看下面的程序段：
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
procedure Memo1KeyPress(Sender: TObject; var Key: Char);
procedure FormCreate(Sender: TObject);
procedure Memo1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
i:integer;

implementation

{$R *.dfm}

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
if i=100 then
begin
showmessage('ok');
end;
i:=i+1;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
end;

procedure TForm1.Memo1Change(Sender: TObject);
begin
memo1.Font.Name:='宋体';
end;

end.

上面的程序中我在一个窗体上面放置了一个MEMO，单行输入，右对齐，设置了
字体。写了几行程序，看起来没有什么意义，可我需要这样做，我想要的控件
就是具备这个程序执行以后的效果的控件。

就是说这个新控件创建以前就得实现上面的功能，还有这个控件的一些属性
的默认值都要跟下面的值相同。
WantReturns=false
WordWarp=false
Aligiminit=tarightjustify
font.name='宋体'

答复的时候答案尽量写的详细一点，我的控件开发水平几乎是零。谢谢

繼承Tmemo就是了

你得到这个分是不是太简单了点