re:tdatetime;
ts:ttimestamp;
re:=recodedatetime(now,strtoint(nian),strtoint(yue),
      strtoint(ri),strtoint(shi),strtoint(fen),00,000);

re:=timestamptodatetime(ts);

牛！，佩服一会给分，顺便问句
reception->Q1->Params->Items[0]=StrToInt(fjh);
Q1是query控件
出现这样的错误[C++ Error] jieshou.cpp(220): E2034 Cannot convert 'int' to 'TParam *'
怎么改

因为Params->Items[0]的类型是TParam *，而你赋一个整数给它，类型转换会失败。
改成：
reception->Q1->Params->Items[0]->AsString = StrToInt(fjh);

就行了。