Как можно открыть файл через стандартное диалоговое окно

Как можно открыть файл через стандартное диалоговое окно я пробовал вот так только не чего не выходит

void __fastcall TForm1::FileOpen1Accept(TObject *Sender)
{
OpenDialog1->DefaultExt="txt";//??? ????? ????????? ? ??-??? ? disign time
OpenDialog1->Filter="ASCII files (*.txt)|*.txt|Binary files (*.bin)|*.bin";//??? ????,
// ?????????? - ????? ??????
if(OpenDialog1->Execute())
{
if(ExtractFileExt(OpenDialog1->FileName).UpperCase()==".TXT")
{//??? ?????????
FILE *fop=fopen(OpenDialog1->FileName.c_str(),"rb");
if(fop)
{
if(StringGrid1->RowCount>0)
fprintf(StringGrid1->Rows[0]->CommaText.c_str() = fop);
for(int i=1;i<StringGrid1->RowCount;i++)
fprintf("\n%s",StringGrid1->Rows->CommaText.c_str() = fop);
fclose(fop);
}
}
else
{//????????? ??? ????????
}
}
}
//---------------------------------------------------------------------------