procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
const
ESTADO : array[Boolean] of TColor = (clBlack, clRed);
begin
with ADOTable1 do
begin
if FieldByName('DIA').AsString = '1' then
BitBtn1.Font.Color := ESTADO[Trim(FieldByName('Evento').AsString)='']
else if FieldByName('DIA').AsString = '2' then
BitBtn2.Font.Color := ESTADO[Trim(FieldByName('Evento').AsString)=''];
end;
end;