Class EOleExcepiton with message'操作已被用户取消' 咋回事？？新手不大明白，大侠赐招，感激涕零

Question

小弟在运行用户进行登录时，然后连接窗体在DBGrid中显示只跟用户有关的信息，这都能够实现，但在关闭登录窗口和主窗体是都有上述标题的报错，不明白这么回事，请教，谢谢！
窗体显示只跟登录用户的代码
unit Unit3;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, DBCtrls, Grids, DBGrids, StdCtrls, ExtCtrls;type
  TFormPlan = class(TForm)
    Panel1: TPanel;
    Panel2: TPanel;
    Label1: TLabel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    DBGrid1: TDBGrid;
    DBNavigator1: TDBNavigator;
    DataSource1: TDataSource;
    ADOConn: TADOConnection;
    ADOQuery1: TADOQuery;
    ADOQuery2: TADOQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  FormPlan: TFormPlan;implementation{$R *.dfm}end.
主窗体dpr代码 //我觉得在这里有问题
program Project_FormMain;uses
  Forms,
  SysUtils,
  Unit_FormMain in 'Unit_FormMain.pas' {FormMain},
  Unit1 in 'Unit1.pas' {FormSplash},
  Unit2 in 'Unit2.pas' {FormLogin},
  UnitPwd in 'UnitPwd.pas' {FormPwd},
  Unit3 in '..\Unit3.pas' {FormPlan};{$R *.res}
begin
  Application.Initialize;
  Application.CreateForm(TFormSplash, FormSplash);  FormSplash.Showmodal;
  FormSplash.Free;
  FormSplash := nil;  if not Assigned(FormLogin) then
   Application.CreateForm(TFormLogin, FormLogin); //登录窗口
  FormLogin.ShowModal;
  FormLogin.Free;
  FormLogin:=Nil;  if Unit2.ok then
  begin    Application.CreateForm(TFormMain, FormMain);
    Application.Run;
  end;  Application.CreateForm(TFormPwd, FormPwd);
  Application.CreateForm(TFormPlan, FormPlan);//在没这个窗体前 程序运行正常
end.

Answer 1

窗体FormPlan的click代码
procedure TFormMain.N1Click(Sender: TObject);
begin
  FormPlan:=TFormPlan.Create(application);
  self.Edit1.Text:=UserName;
  with FormPlan.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQl.Add('select * from PlanInfo where PersonPlanDataEnter='''+FormMain.Edit1.Text+'''');
    Open;
  end;
  FormPlan.ShowModal;
end;