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

//открытие файла  и вывод на Memo.
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if (OpenDialog1->Execute());
Memo1->Lines->Clear();
Memo1->Lines->LoadFromFile("text.txt");
}

TStringList * Lst = new TStringList;
        Lst->LoadFromFile("text.txt");
        for(int i=0;i<Lst->Count;i++)
                if(!Lst->Strings[i].Pos(","))
                        Memo1->Lines->Add(Lst->Strings[i]);
        delete Lst;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList * Lst = new TStringList; // задается переменная
if (OpenDialog1->Execute());   // открывает файл
Memo1->Lines->Clear();
        Lst->LoadFromFile("text.txt"); //считывает на Lst  текст
        for(int i=0;i<Lst->Count;i++)  //просматривает все линии
                if(!Lst->Strings[i].Pos(",")) //если строки без" , ", то их считывает на Memo
                        Memo1->Lines->Add(Lst->Strings[i]);
        delete Lst; // удаляет переменную Lst
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        TStringList * Lst = new TStringList; // задается переменная
        if (OpenDialog1->Execute());   // открывает файл
        {
                Memo1->Lines->Clear();
                Lst->LoadFromFile(OpenDialog1->FileName); //считывает на Lst  текст
                for(int i=0;i<Lst->Count;i++)  //просматривает все линии
                        if(!Lst->Strings[i].Pos(",")) //если строки без" , ", то их считывает на Memo
                                Memo1->Lines->Add(Lst->Strings[i]);
        }
        delete Lst; // удаляет переменную Lst
}