PChar(string)就行了
MessageBox(Handle,PChar(ConCat(DateToStr(Now),'前的数据将会被删除,您确定要执行此操作吗？')),'系统提示',MB_YESNO or MB_ICONQUESTION);
