Работа с текстовым файлом

void __fastcall TForm1::Button3Click(TObject *Sender)
{
AnsiString A;
TStringList *Lst = new TStringList;
Lst->LoadFromFile("test.txt");//загрузка файла
A=Lst->Text;//
delete Lst;
TCanvas * DTop = new TCanvas;
if (DTop) {
  DTop->Handle = GetDC(HWND_DESKTOP);
  DTop->Brush->Style = bsClear;
  DTop->Font->Size = 14;//размер текста
  DTop->Font->Style = TFontStyles() << fsBold;
  DTop->Font->Name = "Lucida Console";// шрифт
  DTop->Font->Color = (TColor)RGB(255,0,0);//цвет шрифта
  DTop->TextOut(10,10,A);//вывод текста
 
  ReleaseDC(0, DTop->Handle);
}
delete DTop;
}

TStringList *Lst = new TStringList;
Lst->LoadFromFile("test.txt");//загрузка файла
Memo1->Text=Lst->Text;//вывод файла
 
//delete Lst;//пока не удаляем

AnsiString A=Lst->Text;//копируем
Lst->Text="";//очищаем //а чё память переводить
for (int t=0;t<3;t++)//3 предложения
{
int s0=A.Pos("\n");
A.Delete(s0,1);//удаляем перенос строки
int s1=A.Pos(".");//конец предложения
int s2=A.Pos("!");
if (s1<s2)
{
  Lst->Text=A.SubString(1,s1)+Lst->Text;//вставляем в начало текста
  A.Delete(1,s1+1);//удаляем первое предложение
}
else
{
  Lst->Text=A.SubString(1,s2)+Lst->Text;
  A.Delete(1,s2+1);
}
}
//Memo1->Text=Lst->Text;//проверка
Lst->SaveToFile("V.txt");//сохраняем в файл
delete Lst;//и удаляем
Lst=NULL;