[ecfisa]

Hola ralmic y bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

Con respecto a tu consulta, podrías hacer:

// Cargar contenido de archivo a StringGrid
void FileToStringGrid(const char *aFileName, TStringGrid *sg)
{
  TStrings *sl = new TStringList;

  sl->LoadFromFile(aFileName);
  sg->RowCount = sl->Count;
  for (int i=0; i < sl->Count; i++) {
    sg->Rows[i]->Delimiter = ';';
    sg->Rows[i]->DelimitedText = sl->Strings[i];
  }
  delete sl;
}

// Guardar contenido de StringGrid en archivo
void StringGridToFile(const char *aFileName, TStringGrid *sg)
{
  TStrings *sl = new TStringList;

  for(int r = 0; r < sg->RowCount; r++) {
    String s = "";
    for (int c = 0; c < sg->ColCount; c++)
      s += sg->Cells[c][r] + ';';
    s.SetLength(s.Length()-1);
    sl->Add(s);  
  }
  sl->SaveToFile(aFileName);
  delete sl;
}

Ejemplo de llamadas:

void __fastcall TForm1::btnLoadClick(TObject *Sender)
{
  FileToStringGrid("C:\\Carpeta\\archivo.txt", StringGrid1);
}

void __fastcall TForm1::btnSaveClick(TObject *Sender)
{
  StringGridToFile("C:\\Carpeta\\archivo.txt", StringGrid1);
}

Saludos