Dialogs

I'm seeking guidance on how to create custom dialogs like in the image below. Could someone kindly provide some insights or direct me to relevant resources in this regard?

Через inputquery спрашываю у пользователя вводные даные. Например имя и возраст. Как сделать, чтоб в поле, где спрашываю возраст, пользователь мог ввести только цыфры.

Как перемистить окно ввода inputbox или inputquery, чтоб оно было не по середине, а например сверху.

На форме три чекбокса и кнопка. На тап по кнопке повесил вот такой код: procedure TFormMain.fgButton1Tap(Sender: TObject); var SetButtons : TMsgDlgButtons; begin SetButtons := []; if fgCheckBox1.IsChecked then SetButtons := SetButtons + [TMsgDlgBtn.mbYes]; if fgCheckBox2.IsChecked then SetButtons := SetButtons + [TMsgDlgBtn.mbNo]; if fgCheckBox3.IsChecked then SetButtons := SetButtons + [TMsgDlgBtn.mbCancel]; TfgDialogs.MessageDialog('Choose button:',SetButtons, procedure (const AResult: TModalResult) begin TfgDialogs.ShowMessage(TfgDialogButton.DefaultButtonNames[TMsgDlgBtn(Integer(AResult))]); end); end; Результаты д…