procedure  GetAll;
 var 
   A, B, C, D, N, ia, ib, ic, id : integer;
 begin 
   Memo1.Clear;
   A := SpinEdit1.Value;
   B := SpinEdit2.Value;
   C := SpinEdit3.Value;
   D := SpinEdit4.Value;

   N := SpinEdit5.Value;

    for  ia := Max( 0 , N - (B + C + D))  to  Min(A, N)  do 
      for  ib := Max( 0 , N - (ia) - (C + D))  to  Min(B, N - (ia))  do 
        for  ic := Max( 0 , N - (ia + ib) - (D))  to  Min(C, N - (ia + ib))  do 
          for  id := Max( 0 , N - (ia + ib + ic))  to  Min(D, N - (ia + ib + ic))  do 
           Memo1.Lines.Add(IntToStr(ia) + ', ' + IntToStr(ib) + ', ' + IntToStr(ic) + ', ' + IntToStr(id) + '.');
    Memo1.Lines.Add('Total = ' + IntToStr(Memo1.Lines.Count));

 end ;