将文本从TEdit分配给IdPOP3.Host时出错

Question

我是使用Delphi的新手，我想将TEdit组件中的输入文本从IdPOP3.Host分配给Button.Onclick事件中的Pop3.Host := EdHost.Text; ，像这样：

type
  TForm4 = class(TForm)
    Button1: TButton;
    EdHost: TEdit;
    LbHost: TLabel;
    EdPort: TEdit;
    LbPort: TLabel;
    EdCuenta: TEdit;
    LbCuenta: TLabel;
    EdPass: TEdit;
    LbPass: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form4: TForm4;
  Pop3: TIdPOP3;

implementation

{$R *.dfm}

procedure TForm4.Button1Click(Sender: TObject);
begin
  Pop3.Host := EdHost.Text;
end;

end.

然后编译器将启动异常通知，如下所示：

  

Project.exe引发异常类$ C0000005，并显示消息“ c0000005 ACCESS_VIOLATION”

这里是完整代码

ID     City
0      New York
1      San Francisco
2      New York
3      Philadelphia
4      Miami
5      San Francisco
.      .
.      .

这有什么问题？