我遇到了一个问题，这是我的代码

constructor TORAThread.Create;
begin
  inherited Create(True);
  ORAFDcon_Ora := TFDConnection.Create(nil);
  ORAFDPhysOracleDriverLink := TFDPhysOracleDriverLink.Create(nil);
  ORAFDGUIxWaitCursor := TFDGUIxWaitCursor.Create(nil);
  ORAStorPRoc := TFDStoredProc.Create(nil);
  ORAFDcon_Ora.DriverName := 'ora';
  ORAFDcon_Ora.LoginPrompt := False;
  ORAFDcon_Ora.Params.LoadFromFile('Oraconfig.ini');
  ORAFDcon_Ora.CheckConnectionDef;
  ORAFDcon_Ora.ResourceOptions.AutoConnect := True;
  ORAFDcon_Ora.ResourceOptions.AutoReconnect := True;
  ORAFDcon_Ora.ResourceOptions.KeepConnection := True;
  ORAFDcon_Ora.ResourceOptions.CmdExecMode := amNonBlocking;

procedure TORAThread.Execute;
begin
    ORAFDcon_Ora.Connected := True;
while not terminated do
begin
//somejobs
end;

当我启动线程并且VPN连接不活跃时，我的GUI冻结了 怎么了？

此致