Hola ErYcK.
A ver, proba si te sirve de este modo:
Código:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (OpenDialog1->Execute()) {
TStringList *TS = new TStringList;
TS->LoadFromFile(OpenDialog1->FileName);
for(int i=0; i< TS->Count; i++)
ExtractStrings(TSysCharSet()<< ';', TSysCharSet() << ' ',
TS->Strings[i].c_str(), StringGrid1->Rows[i]);
delete TS;
}
}
Saludos.