procedure AddStylesToFlow(const Styles: TStringDynArray; const FlowLayout: TFlowLayout; const GroupIndex: integer; const CurrentStyle: string)