Unknown identifier 'ScriptDlgPageOpen'

[Napoleon5e]

Saludos

Estoy tratando de agregar una pagina personalizada a una instalacion con Inno Setup 5.x, pero al compilar me devuelve el siguiente error: Unknown identifier 'ScriptDlgPageOpen'

He probado con las versiones 5.3 y 5.4, pero da el mismo error.

Estoy utilizando la interface InnoIDE y antes utilice ISTool, pero con ambos me da el mismo error.

Quisiera saber si me falta algo el el codigo que muestro a continuacion:


var
DataDir: String;

function InitializeSetup(): Boolean;
begin
DataDir := GetPreviousData('DataDir', '');
{ Let Setup run }
Result := True;
end;

procedure RegisterPreviousData(PreviousDataKey: Integer);
begin
{ Store the settings so we can restore them next time }
SetPreviousData(PreviousDataKey, 'DataDir', DataDir);
end;

function ScriptDlgPages(CurPage: Integer; BackClicked: Boolean): Boolean;
var
I, CurSubPage: Integer;
Next, NextOk: Boolean;
begin
{(*}
if pos( 'Servidor', WizardSelectedComponents( false)) > 0 then begin // Database component is selected
if (not BackClicked and (CurPage = wpSelectComponents)) or (BackClicked and (CurPage = wpReady)) then begin
{ Insert a custom wizard page between two non custom pages }
{ First open the custom wizard page }

ScriptDlgPageOpen();
{ Set some captions }
ScriptDlgPageSetCaption('Select Data Directory');
ScriptDlgPageSetSubCaption1('Where should the data files be installed?');
ScriptDlgPageSetSubCaption2('Select the folder where you would like to install the data files.');

{ Initialize the DataDir if necessary }
if DataDir = '' then
DataDir := ExpandConstant('{app}') + '\Data';
{ Ask for a dir until the user has entered one or click Back or Cancel }
Next := InputDir(True, '', DataDir);
while Next and (DataDir = '') do begin
MsgBox(SetupMessage(msgInvalidPath), mbError, MB_OK);
Next := InputDir(True, '', DataDir);
end;
{ See NextButtonClick and BackButtonClick: return True if the click should be allowed }
if not BackClicked then
Result := Next
else
Result := not Next;
{ Close the wizard page. Do a FullRestore only if the click (see above) is not allowed }
ScriptDlgPageClose(not Result);
end else begin
Result := True;
end;
end else begin
Result := True;
end;
{ *)}
end;

function NextButtonClick(CurPage: Integer): Boolean;
begin
Result := ScriptDlgPages(CurPage, False);
end;

function BackButtonClick(CurPage: Integer): Boolean;
begin
Result := ScriptDlgPages(CurPage, True);
end;

function UpdateReadyMemo(Space, NewLine, MemoUserInfoInfo, MemoDirInfo, MemoTypeInfo, MemoComponentsInfo, MemoGroupInfo, MemoTasksInfo: String): String;
var
S: String;
begin
// { Fill the 'Ready Memo' with the normal settings and the custom settings }
S := '';
S := MemoComponentsInfo + NewLine + NewLine;

{ Workstation component is selected }
if pos( 'Cliente', WizardSelectedComponents( false)) > 0 then
S := S + MemoDirInfo + ' (Cliente)' + NewLine;

if pos( 'Servidor', WizardSelectedComponents( false)) > 0 then // Database component is selected
if pos( 'Cliente', WizardSelectedComponents( false)) > 0 then // Workstation component is selected
S := S + Space + DataDir + ' (Servidor)' + NewLine
else begin // Workstation component is not selected
S := S + 'Destination Directory:' + NewLine;
S := S + Space + DataDir + ' (Servidor)' + NewLine;
end;

Result := S;
end;

function GetDataDir(S: String): String;
begin
{ Return the selected DataDir }
Result := DataDir;
end;

function GetAppDir(Default: String): String;
begin
Result := ExpandConstant('{app}');
end;

¿Alguna idea de por que pasa esto?

Gracias por la ayuda...