//* Form1:
	Form1.GroupBox1.Enabled := False;
	Form2.Show;

	//* Then:
	//* Form2:
	Form1.GroupBox1.Enabled := True;
	Close;

procedure TForm1.FormCreate(Control: TObject);
begin
    //* Wordwrap hints
    WordwrapHints(Self);
end;

procedure TForm1.WordwrapHints(Control: TWinControl);
var
  i: Integer;
  HintStr: String;
begin
    for i := 0 to Control.ControlCount - 1 do begin
        try
            HintStr := '';
            HintStr := (Control.Controls[i] as TObject).Hint;
            if HintStr <> '' then begin
                HintStr := AnsiReplaceStr(HintStr, ' /n/n ', #13#10);
                (Control.Controls[i] as TObject).Hint := HintStr;
            end;
            try
                if (Control.Controls[i] as TWinControl).ControlCount > 0
                    then WordwrapHints(TWinControl(Control.Controls[i]));
            except
                //*
            end;
        except
            //*
        end;
    end;
end;

procedure ProcessMessages;
var
  Msg : tMsg;
begin
    while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do begin
        TranslateMessage(Msg);
        DispatchMessage(Msg);
    end;
end;