TShowBigDialoxBoxThread=class(TThread)
    private
      FMsg: String;
      FDlgType: TMsgDlgType;
      FButtons: TMsgDlgButtons;
      FHelpContext: Integer;
      FDefaultButton: TMsgDlgBtn;
      FDlgMinWidth: Integer;
      function ThreadNotTerminated: Boolean;
    protected
      EventHandler: TEvent;
      procedure Execute; Override;
      procedure _ShowBigMessageDialog;
    public
      procedure ShowBigMessageDialog(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpContext: Integer;
      DefaultButton: TMsgDlgBtn; DlgMinWidth: Integer);
      constructor Create(CreateSuspended: Boolean = False);
      destructor Destroy;
  end;

// ======================================================================================================================
// TShowBigDialoxBoxThread
// ======================================================================================================================

constructor TShowBigDialoxBoxThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);
  EventHandler:=TEvent.Create;
end;

destructor TShowBigDialoxBoxThread.Destroy;
begin
  EventHandler.Free;
  inherited Destroy;
end;

function TShowBigDialoxBoxThread.ThreadNotTerminated: Boolean;
begin
  try
    Result:=not(Terminated or Application.Terminated)
  except
    Result:=True;
  end;
end;

procedure TShowBigDialoxBoxThread.Execute;
begin
  while ThreadNotTerminated do begin
    EventHandler.WaitFor(INFINITE);
    if not(ThreadNotTerminated) then
      Continue;
    EventHandler.ResetEvent;
    Synchronize(_ShowBigMessageDialog);
  end;
end;

procedure TShowBigDialoxBoxThread.ShowBigMessageDialog(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons;
  HelpContext: Integer; DefaultButton: TMsgDlgBtn; DlgMinWidth: Integer);
begin
  FMsg:=Msg;
  FDlgType:=DlgType;
  FButtons:=Buttons;
  FHelpContext:=HelpContext;
  FDefaultButton:=DefaultButton;
  FDlgMinWidth:=DlgMinWidth;
  EventHandler.SetEvent;
end;

procedure TShowBigDialoxBoxThread._ShowBigMessageDialog;
begin
  MessageDlgBig(FMsg, FDlgType, FButtons, FHelpContext, FDefaultButton, FDlgMinWidth);
end;