Настройка вывода чисел с плавающей точкой

FormatSettings.DecimalSeparator = ',';

AnsiString s="file.txt";
FILE *pcsv;
int s,k;
float f[100][10];
 
 
pcsv = fopen(s.c_str(), "w");
for (s=0;s<=100;s++){
  for(k=0;k<10;k++){
   fprintf(pcsv,"%f%c",f[s][k],';');
  }
  fprintf(pcsv,"%s","\n");
}
fclose (pcsv);

TStringList *List = new TStringList(); 
List->Add("что будет в первой строке " + FloatToStr(1.5));
List->Add("что будет во второй строке " + FloatToStr(6.8));
List->SaveToFile("D:\\1.txt");
delete List;

TFormatSettings  FormatSettings;
FormatSettings.DecimalSeparator = '.';
TStringList *List = new TStringList();
List->Add("что будет в первой строке " + FloatToStr(1.5, FormatSettings));
List->Add("что будет во второй строке " + FloatToStr(6.8));
List->SaveToFile("D:\\1.txt");
delete List;

const int MaxRow = 3, Num = 2 ;       // Объявляем
const String Delim = ";";             //
 
float arr[MaxRow * Num];              // Как-то заполняем массив,
for( int i=0; i<MaxRow * Num; i++ )   //  который нужно вывести
  arr[i] = rand() / Now().Val;        //
 
TStringList *sl = new TStringList();          ////
String tempStr = "";                            //
for( int i=1; i<=MaxRow * Num; i++ )            // Заполняем
  {
  tempStr += FloatToStr( arr[i-1] ) + Delim;
  if( !(i % Num)  )
    {
    sl->Add( tempStr );
    tempStr = "";                               //
    }                                           //
  }                                           ////
 
sl->SaveToFile( "D:\\FileName.txt" );         // Сохраняем
delete sl;