TDateTime test1, test2;
    AnsiString str;
    test1 = Now() + 1;
    test2 = EncodeTime(11, 11, 12, 0);

    str = test1.DateString()+test2.TimeString();
    Memo1->Lines->Add(str);

    test1 = StrToDateTime(str);

    Memo1->Lines->Add(FormatDateTime("yyyy m d AM/PM hh:mm:ss ", test1));