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