Problema Consulta Insert into...

[[Caral]]

Hola
Y Asi?

Código Delphi [-]
   procedure TFPedidoMod.BitBtn2Click(Sender: TObject);
   begin
   if MessageDlg('¿Está seguro que desea Guardar?', mtConfirmation,
       [mbYes, mbNo], 0) = mrYes then
   begin
   QHistorico.SQL.Text:= 'Insert Into historico (no, no_ped, dpto, responsable, fecha_rec_ped, status, user, date)'+
                         ' values ('+QuotedStr(DBEdit18.Text)+', '+QuotedStr(DBEdit7.Text)+', '+QuotedStr(DBLookupComboBox6.Text)+', '+QuotedStr(DBLookupComboBox8.Text)+', '+QuotedStr(DBEdit15.Text)+', '+QuotedStr(DBLookupComboBox1.Text)+', '+QuotedStr(DBEdit16.Text)+', '+QuotedStr(DBEdit17.Text)+')';
   QHistorico.ExecSQL;
   MessageDlg('Los Datos se grabaron exitosamente!',mtError,[mbOK],0);
   end;
end;

Saludos