菜鸟求助：数据库插入的问题

问题描述：
    一个在Deiphi下面针对Oracle数据库数据插入问题，我想在下面的Deiphi数据库操作代码
中插入一个TDatetime类型的数据，遇到的问题Quotedstr（）函数只能处理字符串类型，我想
作一个TDatetime类型的插入，应该如何写（下面的这种写法是错误的）
     
var
  dtTimeString: TDateTime;begin
  dtTimeString := Now;ADOQuery_Gen.SQL.Text :=
    'INSERT INTO PSN_CURRENT_LOGIN ' +
    '  (ID, PERSON_ID, LOGIN_TIME, MACHINE, IP_ADDRESS, APP_TYPE, UPDATE_TIME) ' +
    'VALUES ' +
    '  (:ID, :PERSON_ID,'+
  Quotedstr(dtTimeString)+', :MACHINE, :IP_ADDRESS, :APP_TYPE, '+Quotedstr(dtTimeString)+') ';