Проблемы с разрешением в разных темах

[rodionov_uv]

Столкнулся с проблемой с разрешением экрана при разных темах оформления виндовс

...............................
if OpenBut.TabOrder <> 0 then
  begin
    OpenBut.Enabled := False;
    PrintBut.Enabled := True;
    MyForm.Constraints.MaxWidth := 567;
    MyForm.Constraints.MinWidth := 567;
    if MyPanel.Height <= 560 then
    begin
      MyForm.Constraints.MaxHeight := MyPanel.Height+34;
      MyForm.Constraints.MinHeight := MyPanel.Height+34;
      MyForm.Constraints.MaxWidth := 550;
      MyForm.Constraints.MinWidth := 550;
    end
    else
    begin
      MyForm.Constraints.MaxHeight := 600;
      MyForm.Constraints.MinHeight := 600;
    end;

...............................

при стандартной нормуль, при вистовском оформлении надо

.................................
MyForm.Constraints.MaxHeight := MyPanel.Height+36;      
MyForm.Constraints.MinHeight := MyPanel.Height+36;
MyForm.Constraints.MaxWidth := 552;
MyForm.Constraints.MinWidth := 552;
.................................

при остальных

.................................
MyForm.Constraints.MaxWidth := 554;
MyForm.Constraints.MinWidth := 554;
MyForm.Constraints.MaxHeight := MyPanel.Height+38;      
MyForm.Constraints.MinHeight := MyPanel.Height+38;
.................................

в чём может быть проблема