Delphi XE3, InputBox

procedure HookInputButtons(rs: PResStringRec; newStr: PChar);
 var
   oldprotect: DWORD;
 begin
   VirtualProtect(rs, SizeOf(rs^), PAGE_EXECUTE_READWRITE, @oldProtect);
   rs^.Identifier := Integer(newStr);
   VirtualProtect(rs, SizeOf(rs^), oldProtect, @oldProtect);
 end;
 
 const
   ButtonOK: PChar = 'Ок';
   ButtonCancel: PChar = 'Отмена';
 
 
initialization
   HookInputButtons(@SMsgDlgOK, ButtonOK);
   HookInputButtons(@SMsgDlgCancel,ButtonCancel);
 end.

uses Consts;

program Project1;
 
uses
  WinApi.Windows,
  System.UITypes,
  FMX.Dialogs,
  FMX.Forms,
  FMX.Controls, FMX.Edit,
  Unit1 in 'Unit1.pas' {Form1};
 
{$R *.res}
 
function MessageDlgPos(const msg: string; DlgType: TMsgDlgType;
  buttons: TMsgDlgButtons; const captions: array of string;
  defaultButton: TMsgDlgBtn): string;
var
  aMsgDlg: TForm;
  i, captionIndex: Integer;
  dlgButton: TButton;
  Edit: TEdit;
begin
  aMsgDlg := CreateMessageDialog(msg, DlgType, buttons, defaultButton);
  aMsgDlg.Caption := captions[0];
  Edit := TEdit.Create(aMsgDlg);
  Edit.Parent := aMsgDlg;
  Edit.Position.X := (aMsgDlg.FindComponent('Message') as TLabel).Position.X;
  Edit.Position.Y := aMsgDlg.Canvas.TextHeight('W') + 2 * 10;
  aMsgDlg.InsertComponent(Edit);
  captionIndex := 1;
  for i := 0 to Pred(aMsgDlg.ComponentCount) do
    if aMsgDlg.Components[i] is TButton then
    begin
      (aMsgDlg.Components[i] as TButton).Text := captions[captionIndex];
      Inc(captionIndex);
    end;
 
  aMsgDlg.ShowModal;
  Result := Edit.Text;
  aMsgDlg.Free;
end;
 
var
  s: string;
 
begin
 
  if MessageBox(0, 'Вы хотите ввести регистрационный ключ?',
    'Запрос регистрации', (MB_YESNO + MB_ICONQUESTION)) = idYes then
  begin
    s := MessageDlgPos('Введите пароль'#13#10#13#10#13#10, TMsgDlgType.mtCustom,
      [TMsgDlgBtn.mbOk, TMsgDlgBtn.mbCancel], ['Ввод пароля', 'Ok', 'Отмена'],
      TMsgDlgBtn.mbNo);
    MessageBox(0, Pchar(s), 'Password entered', MB_OK); // Делаешь с паролем что нужно
 
    Application.Initialize;
    Application.CreateForm(TForm1, Form1);
    Application.Run;
  end;
 
end.