TCompareRec

type TCompareRec = record

  Kind: TChangeKind;

  oldIndex1: Integer;

  oldIndex2: Integer;

  case Boolean of

    False: (

        chr1: char;

        chr2: char;

      );

    True: (

        int1: Integer;

        int2: Integer;

      );

end;