帮忙看一下,哪里错了?

                            
procedure   TFrmserver.Button1Click(Sender:   TObject);   
  begin  
      myinifile.WriteString('setup','srv_name',edit1.Text);  
      myinifile.WriteString('setup','srv_data',edit2.Text);  
      myinifile.WriteString('setup','user_name',edit3.Text);  
      myinifile.WriteString('setup','user_pwd',edit4.Text);  
      myinifile.Destroy;  
      button1.ModalResult   :=   mrok;  
  end;  
   
  运行后老是出错!

查看回复