В файле записан массив, который содержит сведения о машинах

TForm1 *Form1;
TStringList *Lst;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Lst = new TStringList;
Lst->LoadFromFile("Baza1.txt");
//Memo1->Text=Lst->Text;//ïðîâåðêà òåêñòà â ôàéëå
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete Lst;//î÷èñòêà ïàìÿòè
}
//ñîõðàíåíèå â ôàéë----------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
/*TStringList *Temp = new TStringList;
Temp->Strings[StrToInt(LabeledEdit9->Text)]="123";
Temp->SaveToFile("Baza.txt");
delete Temp;*/
}
//ìàðêà è öâåò---------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Memo1->Clear();
for (int i=0;i<Lst->Count;i++)
 {
   if (Lst->Strings[i].Pos("Âîëãà"))
    {
      if (Lst->Strings[i+2].Pos("׸ðíûé"))
       {
         Memo1->Lines->Add(Lst->Strings[i+1]);
         Memo1->Lines->Add(Lst->Strings[i+3]);
         Memo1->Lines->Add(Lst->Strings[i+4]);
         Memo1->Lines->Add(Lst->Strings[i+5]);
       }
    }
 }
}
//ïîèñê ïî íîìåðó------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Memo1->Clear();
for (int i=0;i<Lst->Count;i++)
 {
   if (Lst->Strings[i].Pos(LabeledEdit1->Text))
    {
      Memo1->Lines->Add(Lst->Strings[i-1]);
      Memo1->Lines->Add(Lst->Strings[i+2]);
      Memo1->Lines->Add(Lst->Strings[i+3]);
      Memo1->Lines->Add(Lst->Strings[i+4]);
      Memo1->Lines->Add(Lst->Strings[i+5]);
    }
 }
}

#include <windows.h>
...
        SYSTEMTIME info;
        GetLocalTime(&info);
        int day = info.wDay;

#include <DateUtils.hpp>//у меня и без неё работает
Edit1->Text=FormatDateTime("ss", Now()); //dd/mm/yyyy hh:mm:ss
Edit2->Text=FormatDateTime("dd", Now());//день

//åù¸ íå ïðîøëè òåõ.îñìîòð---------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
int d,m,y;
//Edit1->Text=FormatDateTime("dd.mm.yyyy hh:mm:ss", Now()); //dd/mm/yy hh:mm:ss
d=StrToInt(FormatDateTime("dd", Now()));
m=StrToInt(FormatDateTime("mm", Now()));
y=StrToInt(FormatDateTime("yyyy", Now()));
//Edit2->Text=IntToStr(d);
//Edit3->Text=m;
//Edit4->Text=y;
 
//Memo2->Clear();
Memo1->Clear();
AnsiString t;
for (int i=0;i<Lst->Count;i=i+10)
 {
   t=Lst->Strings[i+6];
//   Memo2->Lines->Add(t);
    if (y<=StrToInt(t.SubString(7,4)))
     {
//      Memo2->Lines->Add(t.SubString(7,4));
      if (m<=StrToInt(t.SubString(4,2)))
       {
//         Memo2->Lines->Add(t.SubString(4,2));
         if (d<StrToInt(t.SubString(1,2)))  //
          {
//            Memo2->Lines->Add(t.SubString(1,2));
            Memo1->Lines->Add(Lst->Strings[i]);//âûâîä äàííûõ
            Memo1->Lines->Add(Lst->Strings[i+1]);//ìîæíî ðàñêèäàòü
            Memo1->Lines->Add(Lst->Strings[i+2]);//ïî LabeledEdit
            Memo1->Lines->Add(Lst->Strings[i+3]);
            Memo1->Lines->Add(Lst->Strings[i+4]);
            Memo1->Lines->Add(Lst->Strings[i+5]);
          }
       }
    }
 }
}