[rufo]

Buenas tardesnoches amigos, resulta que estoy atoradillo en una consulta en la cual no le veo en donde pueda estar la falla o el porque el error, les anexo este codigo:

procedure TDEPRECIACIONES.Button3Click(Sender: TObject);
begin
 if combobox4.Text<>'' then
 begin
    with dm1.Q_activos do
    begin
      active:=false;
      sql.Clear;
      sql.add('select * from Activos_fijos');
      sql.add('where id_activof='+combobox4.Text);
      active:=true;
        if recordcount=0 then
         messagedlg('No se encontro el Activo Fijo, intente de nuevo',mtinformation,[mbok],0);
         begin
           label16.Caption:=fieldbyname('costo').asstring;
           label18.Caption:=fieldbyname('fecha').asstring;
         end;
    end;
end;
end;

El anterior codigo es en un boton en el cual eligo una opcion de un combobox y al da clic en el boton me dice que Error que me falta un operador pero no se que operador se refiera, bueno espero que me ayuden y de antemano gracias.

P.D. Uso Delphi 2007