anchor.diff:          Caption := SMsgDlgCancel;
           ModalResult := mrCancel;
           Cancel := True;
  -        SetBounds(Form.ClientWidth - (ButtonWidth + MulDiv(8, DialogUnits.X, 4)), ButtonTop, ButtonWidth, ButtonHeight);
  -        Form.ClientHeight := Top + Height + MulDiv(13, LPPI, 96);
  +        SetBounds(Form.ClientWidth - (ButtonWidth + MulDiv(8, DialogUnits.X, 4)) - ButtonsRightOffset, ButtonTop, ButtonWidth, ButtonHeight);
  +        Form.ClientHeight := Top + Height + MulDiv(13 + 2 * ButtonsRightOffset, LPPI, 96);
         end;
         if ShowModal = mrOk then
         begin
  
positive.code:   PromptCount, CurPrompt: Integer;
    MaxPromptWidth: Integer;
    ButtonTop, ButtonWidth, ButtonHeight: Integer;
  
    function GetPromptCaption(const ACaption: string): string;
    begin
  
negative.code:           Top := Prompt.Top + Prompt.Height - DialogUnits.Y -
              (GetTextBaseline(Edit, Canvas) - GetTextBaseline(Prompt, Canvas));
            Width := Form.ClientWidth - Left - MulDiv(8, DialogUnits.X, 4);
            if IsCustomStyleActive then
              Width := Width - 4;
            MaxLength := 255;
            Text := AValues[I];
            SelectAll;
            Prompt.FocusControl := Edit;
          end;
          CurPrompt := Edit.Top + Edit.Height + MulDiv(5, LPPI, 96); // KV
        end;
        ButtonTop := Edit.Top + Edit.Height + MulDiv(15, LPPI, 96); //KV
        ButtonWidth := MulDiv(50, DialogUnits.X, 4);
        ButtonHeight := DialogUnits.Y + MulDiv(6, LPPI, 96);  //MulDiv(14, DialogUnits.Y, 8);
        if IsCustomStyleActive then
          ButtonsRightOffset := 4
        else
          ButtonsRightOffset := 0;
        with TButton.Create(Form) do
        begin
          Parent := Form;
          Caption := SMsgDlgOK;
          ModalResult := mrOk;
          Default := True;
          SetBounds(Form.ClientWidth - (ButtonWidth + MulDiv(8, DialogUnits.X, 4)) * 2 - ButtonsRightOffset, ButtonTop, ButtonWidth, ButtonHeight);
        end;
        with TButton.Create(Form) do
        begin
  