OpenDialog, не открывать ничего, кроме файлов txt

void __fastcall TForm1::Button5Click(TObject *Sender)
{  OpenDialog1->Filter = "Òåêñòîâûå ôàéëû|*.txt";
if(OpenDialog1->Execute())
    {
        TStringList *pStrings = new TStringList;
        pStrings->LoadFromFile(OpenDialog1->FileName);
        StringGrid1->RowCount = pStrings->Count+1;
        for(int i=0; i < pStrings->Count; i++)
        {
            StringGrid1->Rows[i+1]->Delimiter = wchar_t(" ");
            StringGrid1->Rows[i+1]->DelimitedText = pStrings->Strings[i];
        }
        delete pStrings;
    StringGrid1->RowCount=StringGrid1->RowCount-1;};
    
 
}

if(OpenDialog1->FileName!="*.txt") {ShowMessage("неверное расширение файла");}
        else{

OpenDialog1->Filter = "Текстовые файлы|*.txt";

if (ExtractFileExt(OpenDialog1->FileName).UpperCase()!=".TXT")
  ShowMessage("неверное расширение файла");

StringGrid1->RowCount=StringGrid1->RowCount-1

StringGrid1->RowCount = pStrings->Count+1;