Hola Victorialerda.
Otro detalle que estoy viendo en tu código es:
Código Delphi
[-]
if Column.Field.Dataset_AGENDA.FieldbyName('HORA').AsInteger < 5 then
Y "Dataset_AGENDA.FieldbyName" no es una propiedad o método de
Column.
Deberías realizarlo mas o menos de este modo:
Código Delphi
[-]
if TDBGrid(Sender).DataSource.DataSet.FieldByName('HORA').AsInteger < 5 then
Saludos.