[SatHan]

привет всем.
есть у меня ключ

Код:

[Registry]
;Root: HKLM; SubKey: SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Application_is1; ValueType: string; ValueName: QuietUninstallString; ValueData: """C:\Program Files\Application\unins000.exe"" /SILENT"; Flags: uninsdeletevalue uninsdeletekeyifempty

и есть у меня кнопачка

Код:

[#Code]
var
  NewButton1: TNewButton;
procedure NewButton1Click(Sender: TObject); forward;
procedure NewButton1Click(Sender: TObject);
begin

end;

procedure InitializeWizard();
begin
  NewButton1 := TNewButton.Create(WizardForm);
  with NewButton1 do
  begin
    Name := 'NewButton1';
    Parent := WizardForm;
    Left := ScaleX(32);
    Top := ScaleY(327);
    Width := ScaleX(75);
    Height := ScaleY(25);
    OnClick := @NewButton1Click;
  end;

ответьте пожалуйста на вопрос. как мне сделать чтоб я на кнопочку нажал и ключ добавился?