Problema con query

[Salnhack]

Hola estoy implementado una consulta de seleccion para asignarle el resultado a una variable que despues sera utilizada mas adelante el codigo que utilizo es el siguiente

Código Delphi [-]

with DataModule4.Query1 do
      begin
       Close;
       SQL.Clear;
       SQL.Add('select (id_cult) from cultivos where desccultv=' +  QuotedStr(suiDBLookupComboBox3.Text));
       Open;
       id_cultv:=ParamByName('id_cult').AsInteger;
     end;

seleciono el ide de la tabla cultivos correspondiente al cultivo selecionado en el comboBox
el problema es que cuando compilo y ejecuto la consulta me da que no encuentra el campo id_cult en la tabla, a la hora de la asignacion.

id_cultv:=ParamByName('id_cult').AsInteger;

cundo ejecuto la consulta sin la asignacion me trabaja bien, help please
Gracias.