anchor.diff:  Var s : String;
     opr : TOperationResume;
   begin
  -  DrawGrid.Canvas.Font.Color:=clBlack;
  +  DrawGrid.Canvas.Font.Color:=clWindowText;
     opr := CT_TOperationResume_NUL;
     Try
     if (ARow=0) then begin
  
positive.code:   deviation : Real;
    hr_base : Int64;
  begin
    DrawGrid.Canvas.Font.Color:=clBlack;
    if (ARow=0) then begin
      // Header
      case ACol of
  
negative.code:     C.ColumnType := act_account_number;
      C.width := -1;
    end;
    DrawGrid.Canvas.Font.Color:=clWindowText;
    if (ARow=0) then begin
      // Header
      s := CT_ColumnHeader[C.ColumnType];
  