Fórum Insert erro Token unknown - line 1, column 21 #485601

      with frmmodulo do
      begin
        qrlancamento_entrega.Close;
        qrlancamento_entrega.SQL.Clear;
        qrlancamento_entrega.SQL.Add('insert into entrega');
        qrlancamento_entrega.SQL.Add('codigo,data,codcliente,codvenda,total,status,hora_pedido,hora,hora_saida');
        qrlancamento_entrega.SQL.Add('values');
        qrlancamento_entrega.SQL.Add('('''+frmprincipal.codifica('000155',7)+''',:datax,'''+cod_cliente+''','''+numero_venda+''',');
        qrlancamento_entrega.SQL.Add(':total,:status,');
        qrlancamento_entrega.SQL.Add(':hora_pedido,:hora_saida,');
        qrlancamento_entrega.Params.ParamByName('datax').AsDateTime := strtodate(data_caixa);
        qrlancamento_entrega.Params.ParamByName('total').AsFloat := rtotal.Value;
        qrlancamento_entrega.Params.ParamByName('status').AsInteger := 1; // COZINHA PREPARAÇÃO
        qrlancamento_entrega.Params.ParamByName('hora_pedido').AsTime := Time;
        qrlancamento_entrega.Params.ParamByName('hora_saida').AsTime := time+30;
        qrlancamento_entrega.ExecSQL;
      end;