Código Delphi [-]
function NextButtonClick(CurPageID: Integer): Boolean;
var
  ResultCode: Integer;
begin
  case CurPageID of
    wpReady:
      begin
        ExtractTemporaryFile('Firebird-2.1.1.17910-0_Win32.exe');

        // Instalación del servidor
        if IsComponentSelected('Firebird_2_1') then begin
          MsgBox('A continuación se instalará el motor de bases de datos Firebird 2.1', mbInformation, MB_OK);
          if not Exec(ExpandConstant('{tmp}\Firebird-2.1.1.17910-0_Win32.exe'),
                 '/SILENT /LOG /NOCANCEL /NOICONS /TYPE=CustomInstall /COMPONENTS="ServerComponent,ServerComponent\SuperServerComponent,DevAdminComponent,ClientComponent" /MERGETASKS="CopyFbClientToSysTask"',
                 '',
                 SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode) then
            MsgBox('No se pudo realizar la instalación de Firebird 2.1.'#13#13#10'Mensaje de error del sistema'#13#13#10+SysErrorMessage(ResultCode)+'.', mbError, MB_OK)
          else begin
            // Hacer algo después de la instalación...
            // ...
          end
        end

        // Instalación del cliente
        else if IsComponentSelected('Archivos_Cliente') then begin
          MsgBox('A continuación se instalará cliente del motor bases de datos Firebird 2.1', mbInformation, MB_OK);
          if not Exec(ExpandConstant('{tmp}\Firebird-2.1.1.17910-0_Win32.exe'),
                 '/SILENT /LOG /NOCANCEL /NOICONS /TYPE=ClientInstall',
                 '',
                 SW_SHOWNORMAL, ewWaitUntilTerminated, ResultCode) then
            MsgBox('No se pudo realizar la instalación del cliente Firebird 2.1.'#13#13#10'Mensaje de error del sistema'#13#13#10+SysErrorMessage(ResultCode)+'.', mbError, MB_OK)
        end
      end
  end;

  Result := True
end;