ajouter une unité "Olf.FMX.Utils" pour y stocker des fonctions utilisées pour FMX

[DeveloppeurPascal]

y caser la routine classique de retaillage de la hauteur des FlowLayout en attendant la prise en compte de https://quality.embarcadero.com/browse/RSP-25551 ou https://embt.atlassian.net/servicedesk/customer/portal/1/RSS-4668 et son intégration directe au composant lui-même

procedure TCodeRage2025Infos.FlowLayoutHeightResize(
  const FlowLayout: TFlowLayout);
var
  i: integer;
  h: single;
  c: tcontrol;
begin
  h := 0;
  for i := 0 to FlowLayout.ChildrenCount - 1 do
    if (FlowLayout.Children[i] is TControl) then
    begin
      c := FlowLayout.Children[i] as tcontrol;
      if (h < c.Position.y + c.Height + c.margins.bottom) then
        h := c.Position.y + c.Height + c.margins.bottom;
    end;
  FlowLayout.Height := h;
end;