Считывание из файла при создание формы

if(Form2->OpenDialog3->Execute())
    {
        TStringList *pStrings = new TStringList;
        pStrings->LoadFromFile(Form2->OpenDialog3->FileName); 
        StringGrid1->ColCount = pStrings->Count+1;
        for(int i=0; i < pStrings->Count; i++)
        {
            StringGrid1->Cols[i+1]->Delimiter = wchar_t(" ");
            StringGrid1->Cols[i+1]->DelimitedText = pStrings->Strings[i]; 
        }
        delete pStrings;
    }

        TStringList *pStrings = new TStringList;
        pStrings->LoadFromFile("я_ФАЙЛКО.xxx"); 
        StringGrid1->ColCount = pStrings->Count+1;
        for(int i=0; i < pStrings->Count; i++)
        {
            StringGrid1->Cols[i+1]->Delimiter = wchar_t(" ");
            StringGrid1->Cols[i+1]->DelimitedText = pStrings->Strings[i]; 
        }
        delete pStrings;

TStringList *pStrings = new TStringList;
        pStrings->LoadFromFile(/*ИМЯ ФАЙЛА*/); 
        StringGrid1->ColCount = pStrings->Count+1;
        for(int i=0; i < pStrings->Count; i++)
        {
            StringGrid1->Cols[i+1]->Delimiter = wchar_t(" ");
            StringGrid1->Cols[i+1]->DelimitedText = pStrings->Strings[i]; 
        }
        delete pStrings;