Ayuda para insertar de un DATETIMEPICKER

[Salnhack]

Buenos Dias

Necesito que me ayuden con la siguiente consulta que me da error

CONUSLTA

Código Delphi [-]
    with DataModule3.Query2 do
     begin
       close;
       sql.Clear;
       SQL.Add('Select idtcomb from tcomb where ntcomb=:pntcomb');
       ParamByName('pntcomb').AsString:=suiDBLookupComboBox1.Text;
       open;
       tcomb:=FieldByName('idtcomb').AsInteger;
       close;
       Sql.Clear;
       SQL.Add('INSERT INTO cargat(idtcomb, carga, fecha, nocarga)');
       Sql.Add('values(:ptcomb, :pcarga, :pfecha, :pncarga)');
       ParamByName('ptcomb').AsInteger:=tcomb;
       ParamByName('pcarga').AsInteger:=StrToInt(suiEdit2.Text);
       ParamByName('pfecha').AsDateTime:=Trunc(DateTimePicker1.Date);
       ParamByName('pncarga').AsString:=suiEdit1.Text;
       open;
     end;

el error que me da es el siguiente



Le agradeceria toda la ayuda que me puedan dar