Yo te recomiendo que Uses Open para Select y ExecSQL para Delete,insert y update en el caso de que ocupes ADO sería algo más o menos así
Código SQL
[-]
DataModulo.QBuscar.SQL.Text:='select * from ciclo where ciclo=:cic';
DataModulo.QBuscar.Parameters.ParamValues['cic'].Value:=ciclob;
DataModulo.QBuscar.Open;
En caso de BDE
Código SQL
[-]
DataModulo.QBuscar.SQL.Text:='select * from ciclo where ciclo=:cic';
DataModulo.QBuscar.Params.ParamValues['cic'].Value:=ciclob;
DataModulo.QBuscar.Open;
Espero que te sirva