Delphi - Error en Ibquery ???

veran esta es mi instruccion....

ibquery1.close;
ibquery1.sql.clear;
* ibquery1.SQL.Text := 'SELECT NUMERO FROM SUCURSALES WHERE CVE_SUCURSAL=' + QuotedStr(Lista1.Strings[cbsucursal.itemIndex]);

ibquery1.open;

y me marca error exactamente en la linea donde esta el *. Al grado que me muestra la
ventana de ensamblador. y el error Access Violation at 0x0040705 write of address
0x00030df8.

Alguna ayuda de porque pasa ?

Lista1.Strings[cbsucursal.itemIndex] si me regresa el texto correspondiente....
e
ibquery1 esta ligado a la Base de datos donde esta la tabla sucursales.

igual me marca error si lo hago

ibquery1.SQL.add( 'SELECT NUMERO FROM SUCURSALES WHERE CVE_SUCURSAL=' + QuotedStr(Lista1.Strings[cbsucursal.itemIndex]) )

Gracias de antemano.....

usa parametros en tu query, funcionan bien y se usan desde diseño o en run time

en vez de:

ibquery1.close;
ibquery1.sql.clear;
ibquery1.SQL.Text := 'SELECT NUMERO FROM SUCURSALES WHERE CVE_SUCURSAL=' + QuotedStr(Lista1.Strings[cbsucursal.itemIndex]);

usa:

ibquery1.close;
ibquery1.sql.clear;
ibquery1.SQL.Text := 'SELECT NUMERO FROM SUCURSALES WHERE CVE_SUCURSAL= :sucursal' ;
ibquery1.parambyname('sucursal').asstring := Lista1.Strings[cbsucursal.itemIndex];

y debe funcionar.

espero te sirva
saludos