Fórum monthcalendar pintar #509589

Ola, copiei este codigo no forum do dev, e esta dando erro informando que meu filtered, Filter, IsEmpty, FieldByName e o meu AsDateTime, não estão declarados.
Onde eu declaro os mesmo?
Esse codigo é para eu buscar na tabela do meu banco os dias que são feriados e colocar as datas em negrito.

procedure TFormAgendaPaciente.MonthCalendar1GetMonthInfo(Sender: TObject;
Month: Cardinal; var MonthBoldInfo: Cardinal);
var
ano,mes,dia : word;
xDataAtual : TDateTime;
x: array of Cardinal;
i,RecordCoun: integer;

begin

x := Nil; DecodeDate(MonthCalendar1.Date, ano, mes, dia);
case Month of
1: if mes = 12 then
ano := ano + 1;
12: if mes = 1 then
ano := ano - 1;
end;
xDataAtual := EncodeDate(ano, Month, 1); i := -1;
with DMConexao do
begin
mes := mes +1;
Close;
Filtered := False;
Filter := 'DATA >= ' + QuotedStr(DateTimeToStr(StartOfTheMonth(xDataAtual)))
+ ' AND DATA <= ' + QuotedStr(DateTimeToStr(EndOfTheMonth(xDataAtual)));
Filtered := True;
Open;
if IsEmpty then
Exit;
SetLength(x, RecordCoun);
while not(Eof) do
begin
Inc(i);
DecodeDate( FieldByName('DATA').AsDateTime, ano, mes, dia);
x[i] := dia;
Next;
end;
Close;
end;
MonthCalendar1.BoldDays(x, MonthBoldInfo);

end;

end.