[ContraVeneno]

Código Delphi [-]
with TuQueryODataset do begin
 if active then close;
 SQL.Clear;
 SQL.Add('Select reservacredito, fecha, importe, satisfaccion');
 SQL.Add('From tpedidos');
 SQL.Add('where empresa='+StrToInt(DBEcodigo));
 Open;
end; //with TuDataset

aunque antes de esto creo que deberías comprobar con TryStrToInt para evitar errores de conversión....