Работа с календарём

void __fastcall TForm1::Button1Click(TObject *Sender)
{
DateTimePicker1->Date=DateTimePicker1->Date.operator --();
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{
DateTimePicker1->Date=DateTimePicker1->Date.operator ++();
}

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
this->DateTimePicker1->Date=Now();
}

DateTimePicker1->Color= clBtnFace;

#include <vcl.h>
#include <boost/regex.hpp>
#include <map>
#pragma hdrstop
 
#include "Unit1.h"
 
using namespace std;
using namespace boost;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
typedef map<TDate,String> Tm;
//---------------------------------------------------------------------------
void pars(Tm &m,String Line)
{
 regex e("\\[(.*?)\\]\\s+Memo=([^\\[]*)");
 smatch r;
 string s= Line.c_str();
 
 string::const_iterator begin, end;
 begin = s.begin();
 end =   s.end();
 
 while(regex_search(begin,end,r,e))
   {
    string s1(r[1].first,r[1].second);
    string s2(r[2].first,r[2].second);
 
    TDate Date= StrToDate(s1.c_str());
    String Text= s2.c_str();
 
    m[Date]=Text;
 
    begin = r[0].second;
   }
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Tm m;
 
pars(m,Memo1->Text);
 
for(Tm::iterator i=m.begin();i!=m.end();++i)
 {
  Memo2->Lines->Add("---------");
  Memo2->Lines->Add(DateToStr(i->first));
 }
 
for(Tm::iterator i=m.begin();i!=m.end();++i)
  {
  Memo3->Lines->Add("---------");
  Memo3->Lines->Add(i->second);
  }
}
//---------------------------------------------------------------------------