在initialization产生系统异常引起进程挂起

Question

unit Unit1;interfaceuses
  Windows, SysUtils, Variants, Classes, Forms, SConnect;type
  TForm1 = class(TForm)
  private
  public
  end;var
  Form1: TForm1;implementation{$R *.dfm}
  procedure GetRemoteServerList;
  var
    oleV : OleVariant;
    i: integer;
  begin
    with TSocketConnection.Create(nil) do begin
      Address := '127.0.0.1';
      Port := 123;
      try
        oleV := GetServerList;
        messagebox(0,'Error','',mb_ok);
      except
        messagebox(0,'except','',mb_ok);
      end;
      free;
    end;
  end;initialization
  GetRemoteServerList;
end.