Memo1.SetSelTextBuf(PChar(DateToStr(Date)));