Fórum Tipos incompatíveis. Onde está o erro? #333263

const
  MaxD = 100;

type
  Faixa = 1..MaxD;
  P = (Leite, Manteiga, Biscoito, Cafe, Pao, Cerveja, Macarrao, Amendoim);
  t  = set  of  P;
  D = array [Faixa] of t;
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function Dependencia (Base: D; Tam_Base: Faixa; X: t; Y:t; var SupX:real; var SupY:real; var
  supXY:real): boolean;
var i,PossuiX,PossuiY,PossuiXY:integer;
    g:p;
begin
   PossuiX := 0;
   PossuiY := 0;
   PossuiXY := 0;
   for i:=1 to Tam_Base do
   begin
      g := Manteiga;
      //>>verifica se existe X na transação
      if (x in base[i]) then PossuiX := PossuiX + 1;
      //>>verifica se existe Y na transação
      if (y in base[i]) then PossuiY := PossuiY + 1;
      //>>verifica se existe XY na transação
      if ((x in base[i]) and (y in base[i])) then PossuiXY := PossuiXY + 1;
   end;
   //>>Calcula os Sup´s
   SupX := PossuiX / Tam_Base;
   SupY := PossuiY / Tam_Base;
   SupXY := PossuiXY / Tam_Base;
   //>>Resultado da função
   Result := (SupX*SupY) <= SupXY;
end;