一个即简单又复杂的问题（自定义输入对话框），希望高手指点

在if form4.flag  and (form4.edtInput.text <>'') then （问题所在）
前加上：
  form4.ShowModal; （在此之前form4不要显示，改正你的代码）
—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
if Not Assigned(I) then
  I := TI.Create(Nil);
I.Maxim := MaximStr;
I.Desire := '加不加分随你';
—————————————————————————————————
　　　　　　　