anchor.diff:          FValueListEditor.Cells[aCol, aRow] := str;
           aNewDisplayValue := str;
           aNewActualValue := calendarFrm.Date;
  +        curLine.OldActualValue:= curLine.ActualValue;
           curLine.ActualValue:= calendarFrm.Date;
           Result := true;
         end;
  
positive.code:   end;
  
    if Assigned(FOnValidateValueEvent) then
      FOnValidateValueEvent(Self, curLine.Name, OldValue, NewValue, oldActualValue, curLine.ActualValue);
  
  
    if NewValue <> OldValue then
  
negative.code:         FValueListEditor.Cells[aCol, aRow] := str;
          aNewDisplayValue := str;
          aNewActualValue := tmpValue;
          curLine.OldActualValue:= curLine.ActualValue;
          curLine.ActualValue:= tmpValue;
          Result := true;
        end;
  