Codolex

begin

var CSVList := TStringList.Create;

try

   CSVList.Add('ProductID,ProductName,SupplierID,CategoryID,QuantityPerUnit,UnitPrice,UnitsInStock,UnitsOnOrder,ReorderLevel,Discontinued');

  for var Entity in ProductsList do

  begin

    var CSVValue: string;

     CSVValue := string.Join(',', [Entity.ProductID.Value, Entity.ProductName.Value, Entity.SupplierID.Value, Entity.CategoryID.Value, Entity.QuantityPerUnit.Value, Entity.UnitPrice.Value, Entity.UnitsInStock.Value, Entity.UnitsOnOrder.Value, Entity.ReorderLevel.Value, Entity.Discontinued.Value]);

     CSVList.Add(CSVValue);

  end;

   CSVList.SaveToFile(ExportFileName);

finally

   CSVList.Free;

end;

end;