Pasted

function NextButtonClick(CurPageID: Integer): Boolean;
var
  iBGVerified: Integer;
  iSIVerified: Integer;
  sDir : string;
begin
 
  if CurPageID = DataDirPage.ID then begin
 
      sDir := BGEdit.Text;
      if Length(sDir) > 0 then begin iBGVerified := VerifyBGDirectory ( sDir );
      end else iBGVerified := 0;
 
      sDir := SIEdit.Text;
      if Length(sDir) > 0 then begin iSIVerified := VerifySIDirectory ( sDir );
      end else iSIVerified := 0;
 
      if (iBGVerified = 0) AND (iSIVerified = 0) then begin
        if MsgBox ('Warning: No valid game installations found. Do you wish to continue?', mbError, MB_YESNO or MB_DEFBUTTON2) = IDYES then begin
          Result := True;
        end else
          Result := False;
      end else
        Result := True;
      
      if (iBGVerified = 0)  AND (iSIVerified = 1) then begin
        if MsgBox ('Warning: No valid installation of Ultima VII: The Black Gate. Do you wish to continue?', mbError, MB_YESNO or MB_DEFBUTTON2) = IDYES then begin
          Result := True;
        end else
          Result := False;
      end else
        Result := True;
      
      if (iSIVerified = 0)  AND (iBGVerified = 1) then begin
        if MsgBox ('Warning: No valid installation of Ultima VII Part 2: Serpent Isle. Do you wish to continue?', mbError, MB_YESNO or MB_DEFBUTTON2) = IDYES then begin
          Result := True;
        end else
          Result := False;
      end else
        Result := True;
  end else
    Result := True;
end;