[Duality]

и еще, как добавить несколько функций в скрипт

вот скрипт - при такой компиляции выдает ошибку на дублирование функиций " NextButtonClick", "CurPageID" ....
[code]

Код:

var
  text: TLabel;

function NextButtonClick(CurPageID: Integer): Boolean;
var
  i, n: Integer;
  str: string;
begin
  Result:= True;
  if CurPageID = wpSelectDir then
    begin
      str:= WizardForm.DirEdit.Text;
      for i:= 1 to Length(str) do if str[i] = '\' then n:= n + 1;
      if (n = 1) and (Pos(ExpandConstant('{pf}\'), WizardForm.DirEdit.Text) > 0) then
        begin
          text.Caption:= 'Внимание, в "Program Files" устанавливать нельзя.';
          Result:= False;
        end
      else text.Caption:= '';
    end;
end;

procedure InitializeWizard();
begin
  text:= TLabel.Create(WizardForm);
  with text do
    begin
      SetBounds(WizardForm.DirEdit.Left,120,300,100);
      AutoSize:= True;
      Font.Style:= [fsBold];
      Font.Color:= clRed;
      Parent:= WizardForm.SelectDirPage;
    end;
end;

function NextButtonClick(CurPageID: Integer): Boolean;
begin
  Result := True;
  if (CurPageID = wpSelectComponents) and (IsComponentSelected('d') = False) 
  and (IsComponentSelected('d\a') = False) and (IsComponentSelected('d\b') = False) 
  and (IsComponentSelected('d\c') = False) and (IsComponentSelected('d\d') = False)
  and (IsComponentSelected('d\e') = False) and (IsComponentSelected('d\f') = False)
  and (IsComponentSelected('d\g') = False) and (IsComponentSelected('d\a') = False) then
  begin
    MsgBox('Не выбрано ни одиного протокола для установки!!!', mbInformation, MB_OK);
    Result := False;
  end;
end;

как разделить эти функции ? или сделать невозможность дублирования функций... будет еще ктстаи 3 код для добавления прозрачности Aero к инсталлятру (там тоже дублирование будет, я не знаю как их применять вместе