¿Margen en celdas de TStringGrid?

[ecfisa]

Hola aguml.

No probé el código pero no veo nada fuera de lugar (por otro lado comentas que funciona correctamente).
Lo que sí creo, es que aprovechar la VCL mediante TFileStream te podría reducir y simplificar un poco el código de tratamiento del archivo, pero queda a tu critero...

Te hice un ejemplo en el que intervienen la lectura y escritura ya que es lo que hace a lo que te sugiero mas arriba:

...
#define FILE_NAME  "ranking.bin"
#define MAX_ELEM 10

struct {
  int pos;
  char nombre[30];
  int aciertos;
  int puntuacion;
} ranking[MAX_ELEM];

void __fastcall TForm1::FormCreate(TObject *Sender)
{
  TStringGrid *SG = static_cast<TStringGrid*>(StringGrid1);
  DWORD openflag = FileExists(FILE_NAME) ? fmOpenReadWrite : fmCreate;
  TFileStream *FS = new TFileStream(FILE_NAME, openflag);

  // ajustar columnas, poner títulos
  SG->ColWidths[0] = 110;
  SG->ColWidths[1] = 175;
  SG->ColWidths[2] = 125;
  SG->ColWidths[3] = 150;
  SG->Rows[0]->DelimitedText = ",Posicion,Nombre,Aciertos,Puntuacion";

  // limpiar struct
  ZeroMemory(&ranking, 0);

  if (openflag == fmCreate) { // el archivo no existia
    for(register int i=0; i < MAX_ELEM; i++) {
      ranking[i].pos = i+1;
      strcpy(ranking[i].nombre, "Agustin");
      ranking[i].aciertos = 100-(i*10);
      ranking[i].puntuacion = 10000-(i*1000);
    }
    FS->Write(&ranking, sizeof(ranking));  // guardar arreglo
  }
  else  // el archivo existia
    FS->Read(&ranking, sizeof(ranking));  // leer

  // struct a StringGrid
  for(register int i=0; i< MAX_ELEM; i++) {
    SG->Rows[i+1]->Strings[0]= i+1;
    SG->Rows[i+1]->Strings[1]= String(ranking[i].pos) + " ";
    SG->Rows[i+1]->Strings[2]= ranking[i].nombre;
    SG->Rows[i+1]->Strings[3]= String(ranking[i].aciertos) + " ";
    SG->Rows[i+1]->Strings[4]= String(ranking[i].puntuacion) + " ";
  }
  delete FS;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
  TStringGrid *SG = static_cast<TStringGrid*>(StringGrid1);
  TFileStream *FS = new TFileStream(FILE_NAME, fmOpenWrite);

  // StringGrid a struct
  for(register int i= 0; i < MAX_ELEM; i++) {
    ranking[i].pos = StrToIntDef(Trim(SG->Rows[i+1]->Strings[1]), 0);
    strcpy(ranking[i].nombre,SG->Rows[i+1]->Strings[2].c_str());
    ranking[i].aciertos = StrToIntDef(Trim(SG->Rows[i+1]->Strings[3]), 0);
    ranking[i].puntuacion = StrToIntDef(Trim(SG->Rows[i+1]->Strings[4]), 0);
  }
  // guardar arreglo
  FS->Write(&ranking, sizeof(ranking));
 delete FS;
}

El código verifica que el archivo exista al crearse el form, de ser así lee los datos, en caso contrario, inicializa el arreglo de estructuras con los valores por omisión y lo guarda, por último muestra los valores en StringGrid.

Y para finalizar la muestra del uso de TFileStream, al salir se almacenan los valores de las celdas del StringGrid (modificados o nó) en el archivo.

Saludos