[R.i.m.s.k.y.]

скрипт - при такой компиляции выдает ошибку на дублирование функиций »

Ну а в чем ошибка? естественно не должно быть двух одноименных функций, ошибки тут нет.

как разделить эти функции ? или сделать невозможность дублирования функций »

Элементарно склеить вместе

Код:

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; //CurPageID = wpSelectDir 

  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; //(CurPageID = wpSelectComponents) and (IsComponentSelected('d') = False)

end; //NextButtonClick