动态建立Memo控件为什么老出错？

Question

var MusicMemo: TMemo;
begin
MusicMemo.Create(self);
MusicMemo.WordWrap:=false;
………………
MusicMemo.Free;
end;

Answer 1

var MusicMemo: TMemo;
begin
MusicMemo.Create(self);
MusicMemo.Parent := Self;   // <- 加上这句！
MusicMemo.WordWrap:=false;
………………
MusicMemo.Free;
end;

Answer 2

var MusicMemo: TMemo;
begin
MusicMemo := TMemo.Create(self);  // 还有这里！应该这样初始化
MusicMemo.Parent := Self;   // <- 加上这句！
MusicMemo.WordWrap:=false;
………………
MusicMemo.Free;
end;