delphi.formshow和formclose的问题(10分)

procedure tform2.formshow(sender:tobject);
begin

memo1.Clear;
edit1.text:='aaa';
memo1.Lines.Add('asdfsf');
end;

这个有问题吗? 为什么我form2打开以后.里面写的内容没有实现.
同样.我用
fprocedure tform1.formclose(sender:tobject);
begin

showmessage('退出');
end;

一样也无法出现.用别人的源程序就可以出来.我自己写的怎么写也没用...
不知道为什么.忘解答.

procedure TForm1.FormShow(Sender: TObject);
begin
memo1.Clear;
edit1.text:='aaa';
memo1.Lines.Add('asdfsf');
end;

procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
showmessage('退出');
end;

建议重新建立project试试

接受答案了.