Application.MessageBox cutting the message when VCL theme is applied

Question

Version: Delphi Berlin 10.1

I am encountering problems, in what I consider to be a vcl theme bug, that when applying a vcl style theme to the application, messages us