初学者练习题(9分)

下面这个进程用于拷贝组件，（《delphi5从入门到精通》75页），
请你给每一句加注释：

procedure TForm1.ClickComp(Sender: TObject);
var
ControlText: string;
begin
with TControlClass (Sender.ClassType).Create (Self) do
begin
Parent := (Sender as TControl).Parent;
Left := (Sender as TControl).Left + 10;
Top := (Sender as TControl).Top + 10;
SetLength (ControlText, 50);
(Sender as TControl).GetTextBuf(
PChar(ControlText), 50);
ControlText := PChar(ControlText) + ' *';
SetTextBuf (PChar (ControlText));
end;
end;

procedure TForm1.ClickComp(Sender: TObject);
var
ControlText: string;
begin
//创建该控件；
with TControlClass (Sender.ClassType).Create (Self) do
begin
//指定控件的父容器；
Parent := (Sender as TControl).Parent;
//控件的定位位置；
Left := (Sender as TControl).Left + 10;
Top := (Sender as TControl).Top + 10;
//控件文本长度为50；
SetLength (ControlText, 50);
//获得控件文本大小；
(Sender as TControl).GetTextBuf(PChar(ControlText), 50);
//设置控件文本；
ControlText := PChar(ControlText) + ' *';
SetTextBuf (PChar (ControlText));
end;
end;

接受答案了.