Use of TTask with mainmodule error

[AlbertoVesx]

Can someone tell me why this code generate an exception?

I can´t call components stored in unimainmodule.

Ttask.run(
  procedure
  begin
     unimainmodule.Query.open;
  end
  );

or

Ttask.run(
  procedure
  begin
    TThread.Queue(nil,
    procedure
    begin
      uniMainModule.Query.open;
    end
    );
  end
  );

Best regards.