[[BlueSteel]]

prueba así

Código Delphi [-]
procedure TForm1.Button4Click(Sender: TObject);
begin
  with sqlquery3 do begin
    ParamByName('P_ID_venta').Value:=SpinEdit1.Value;
    ParamByName('P_Fecha').Value   :=DateTimePicker2.DateTime;
    ParamByName('P_Total').Value   :=SpinEdit1.Value;
    ExecSQL;
  end;    // with
end;

Tambien puede ser

Código Delphi [-]
    ParamByName('P_Fecha').Value   :=DateTimePicker2.Date;

, eso dependerá si quieres almacenar solo la fecha o la fecha y hora

Salu2