> error en IF, debe estar entre paréntesis IF (CONDICIÓN 1) AND (CONDICIÓN 2) then begin Instrucción end; Esto se debe a que en pascal: - los operadores `and` y `or`, además de operadores lógicos, son operadores binarios. - el operadores operadores `and` tienen [mayor precedencia][1] que los operadores de comparación, como `>`, `<`, `>=`, etc. Por estas razones, al no encerrar tus condiciones entre paréntesis, lo que el compilador _entiende_ que quieres hacer es: if Hoy >= (IncMinute(ARecord.Values[AColumnFechaInicio.Index], -30) and Hoy) >= ARecord.Values[AColumnFechaFin.Index] then En la expresión anterior, he añadido paréntesis para tratar de aclararlo. Es decir, primero intenta realizar la operación binaria: IncMinute(ARecord.Values[AColumnFechaInicio.Index], -30) and Hoy Por suerte, la operación `and` no está definida para tipos de dato TDateTime (que son en realidad números de coma flotante), que es lo que dice el mensaje de error (que de otra forma parecería no tener sentido). Dicho esto, la solución a tu problema sería esta: procedure TfMain.gridDBColumnGrid1DBTableView1FECHAINICOStylesGetContentStyle(Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord; AItem: TcxCustomGridTableItem; out AStyle: TcxStyle); var AColumnFechaInicio, AColumnFechaFin: TcxCustomGridTableItem; begin AColumnFechaInicio := (Sender as TcxGridDBTableView).GetColumnByFieldName('FECHAINICO'); AColumnFechaFin := (Sender as TcxGridDBTableView).GetColumnByFieldName('FECHAFIN'); if (Hoy >= IncMinute(ARecord.Values[AColumnFechaInicio.Index], -30)) and (Hoy >= ARecord.Values[AColumnFechaFin.Index]) then begin AStyle := cxStyleGreen; end; end; [1]: http://docwiki.embarcadero.com/RADStudio/Berlin/en/Expressions_(Delphi)#Operator_Precedence