Dudas con Array

[Paulao]

Tengo esta funcion. Ella tiene que me decir si es o no feriado en una determinada fecha. Puzo los feriados fijos y nacionales en un Array. Hizo un decodedate para tener el dia y mes. Entonces comparo lo campos del Array con esta variable y saber si es o no feriado. Que pasa es que no consigo hacer una atribuicion se la variable String con el campo del array. Vea mi codigo:
function

Código Delphi [-]
TFormula.EferiadoFixo(Data: TDateTime): Boolean;
var
  ano,mes,dia: word;
  diames : String;
  dferiado: Array[0..7] of String;
begin
  dferiado[0] := '01/01';
  dferiado[1] := '21/04';
  dferiado[2] := '01/05';
  dferiado[3] := '07/09';
  dferiado[4] := '12/10';
  dferiado[5] := '02/11';
  dferiado[6] := '15/11';
  dferiado[7] := '25/12';
  DecodeDate(Data,ano,mes,dia);
  diames := IntToStr(dia) + '/' + IntToStr(mes);
  if diames = dferiado then // El error estas aca
    Result := True;
end;