RXDBGrid.OnDrawColumnCell

[Cabanyaler]

Hola amigos, una consulta más.

Quiero visualizar en un DBGrid datos referentes a tuplas de una tabla. Entre otros existen campos de tipo fecha y algunas tuplas continen en fecha almacenado el dato '01/01/1900'.
Mi objetivo es no visualizar esas fechas en la columna destinada a este atributo, pero si todas aquellas que tengan fecha diferente a 01/01/1900.

Para ello he hecho este código.

Código Delphi [-]
procedure TFPrincipal.RxDBGridAlbaranDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
        if (RxDBGridAlbaran.Columns[4] = Column) then
           if(DMInstalgas.ADOSP_AlbaranesFecAlb_Alb.AsString = '01/01/1900') then
           begin
              DMInstalgas.ADOSP_Albaranes.Edit;
              RxDBGridAlbaran.Fields[4].Value := NULL;
           end;
end;

Pero el programa se me queda como colgado y como parpadeante dicho RXDBGrid.

¿Sabríais decirme porqué? o ¿como hacerlo?.

Gracias.