Why is this an issue?

Having consecutive type sections is useless and negatively impacts readability. Combining the sections into one larger section is more concise and easier to understand.

How to fix it

Combine the type sections together:

type
  TFoo = class(TObject)
    // ...
  end;

type
  TBar = string;

type
  TFoo = class(TObject)
    // ...
  end;

  TBar = string;