ScrollBar у MessageBox

//MessageDialog with ScrollBox
function MessageDlgScroll(const Msg: String; DlgType: TMsgDlgType;
                          Buttons: TMsgDlgButtons;
                          MaxHeight: Integer): Integer;
var
  aMsgDlg: TForm;
  i: Integer;
  dlgButton: TButton;
  dlgLabel: TLabel;
  dlgImage: TImage;
  aScrollBox: TScrollBox;
begin
  Result:= mrNone;
  begin
    aMsgDlg:= CreateMessageDialog(Msg, DlgType, Buttons);
    if aMsgDlg.Height > MaxHeight then aMsgDlg.Height:= MaxHeight;
    aScrollBox:= TScrollBox.Create(aMsgDlg);
    with aScrollBox do
    begin
      Height:= aMsgDlg.Height - 100;
      BorderStyle:= bsNone;
      Parent:= aMsgDlg;
    end;
    for i:= 0 to aMsgDlg.ComponentCount - 1 do
    begin
      if (aMsgDlg.Components is TImage) then
      begin
        dlgImage:= TImage(aMsgDlg.Components);
        aScrollBox.Left:= dlgImage.BoundsRect.Right + 4;
      end;
      if (aMsgDlg.Components is TLabel) then
      begin
        dlgLabel:= TLabel(aMsgDlg.Components);
        dlgLabel.Parent:= aScrollBox;
        dlgLabel.Left:= 0;
        aScrollBox.Width:= dlgLabel.Width + 24;
      end;
      if (aMsgDlg.Components is TButton) then
      begin
        dlgButton:= TButton(aMsgDlg.Components);
        dlgButton.Top:= aScrollBox.BoundsRect.Bottom + 24;
      end;
    end;
    Result:= aMsgDlg.ShowModal;
  end;
end;