function ScriptDlgPages(CurPage: Integer; BackClicked: Boolean): Boolean;
var
ExpPath: String;
begin
Result := True;
if (CurPage = UserPage.ID) then
begin
ExtractTemporaryFile('sample1.iky'); { the public key file }
ExpPath := ExpandConstant('{tmp}\sample1.iky');
Result := False;
UserValues[0] := UserPage.Values[0];
UserValues[1] := UserPage.Values[1];
UserValues[2] := UserPage.Values[2];
UserValues[3] := UserPage.Values[3];
//if (UserValues[0] = '1') or (UserValues[1] = '1') or (UserValues[2] = '1') or (UserValues[3] = '1') then
if (UserValues[0] = '') or (UserValues[1] = '') or (UserValues[2] = '') or (UserValues[3] = '') then
MsgBox('No fields can be blank !', mbError, MB_OK)
else
begin
Result := ValidateSerialNumber( ExpPath,
UserValues[0],
UserValues[1],
'', '', '',
UserValues[3],
UserValues[2] );
if (not Result) then
MsgBox('Invalid Entry !', mbError, MB_OK);
end
end
end;