comparar con el contenido de un dbedit

[chipsoni]

Necesito seleccionar 4 campos de una tabla donde la empresa (el código de la empresa es numérico) coincida con el que hay en un campo DBEdit de mi formulario, lo he hecho asi:

Select reservacredito, fecha, importe, satisfaccion
from tpedidos where empresa=StrToInt(DBEcodigo)

pero me da error de sintaxis en DBEcodigo.

Muchas gracias