“登录”按钮代码：
procedure TForm1.Button1Click(Sender: TObject);
begin
  if (edit1.text='') or (edit2.text='') or (edit3.text='') then
  begin
    messagebox(0,'邮箱服务器地址或用户名或密码不能为空','警告',mb_ok+mb_iconwarning);
  end
  else begin
    try
      idsmtp1.Host:=edit1.Text;
      idsmtp1.Port:=25;
      idsmtp1.AuthenticationType:=atLogin;
      idsmtp1.Username:=edit2.Text;
      idsmtp1.Password:=edit3.Text;
      idsmtp1.Connect;
      if idsmtp1.Connected then
      begin
        messagebox(0,'已成功登录！','提示',mb_ok);
        button2.Enabled:=true;
      end;
    except
      messagebox(0,'连接服务器失败，请重新连接！','提示',mb_ok);
      exit;
    end;
  end;
end;

“发送”按钮代码：
procedure TForm1.Button2Click(Sender: TObject);
begin
  
  idmessage1.Body.Clear;
  idmessage1.Subject:=edit5.Text;
  idmessage1.Body.Assign(memo1.Lines);
  idmessage1.From.Address:=edit2.Text+'@163.com';
  idmessage1.Recipients.EMailAddresses:=edit4.Text;
  try
    if not idsmtp1.Authenticate then
      exit;
    idsmtp1.Send(idmessage1);
    messagebox(0,'邮件发送成功','提示',mb_ok+mb_iconinformation);
    //idsmtp1.Disconnect;
  except
    messagebox(0,'邮件发送失败','提示',mb_ok+mb_iconinformation);
    idsmtp1.Disconnect;
  end;
end;

我想要的效果就是：只按“登录”按钮一次，然后可以多次按“发送”按钮，就是说可以多闪发送。
怎么改代码才可以实现呢？
谢谢！