问大家一个很菜的问题 帮我看看我这段代码哪里出了问题 老是无限循环·
implementation
uses unit1;
{$R *.dfm}

procedure TForm3.Memo1Change(Sender: TObject);
var haha:string;
begin
haha:='姓名:';
haha:=haha+form1.edit1.text;
haha:=haha+#13+#10;
haha:=haha+'年龄:'+form1.edit2.text+#13+#10;
haha:=haha+'性别:'+form1.combobox3.Text+#13+#10;
haha:=haha+'职务:'+form1.combobox1.Text+#13+#10;
haha:=haha+'电话:'+form1.edit5.text+#13+#10;
haha:=haha+'部门:'+form1.combobox2.Text+#13+#10;
memo1.Lines.add(haha);

end;

procedure TForm3.Button1Click(Sender: TObject);
begin
form3.Close;
end;

end.

我搞了好久 不晓得那出问题了 才开始学DELPHI 请各位帮下小弟我 不胜感激 在线等·

谢谢了楼上的兄弟 按你的做法作了成功了