Tengo en siguiente codigo que me da error en la linea indicada
procedure TfSubMayor.FormActivate(Sender: TObject); var Filt :string; begin Filt:=Filtro + ' and IdAreaRC=' + ModuloBD.TablaAreas.FieldByName('IdAreaRC').AsString; with ModuloBD.sqlSubMayor do begin Filtered:=False; Filter:=Filt; Filtered:=True; Active:=True; Panel1.Caption:=IntToStr(RecordCount) +' Registros'; //<--- Aqui da el error end; end;
El mensaje de error se lo adjunto en la imagen
El error lo da cuando mando a ejecutar ese procedimiento al actualizar un cuadro combinado que esta en el formulario principal (la aplicacion es MDI)
- Cuando abro el formulario, lo hace bien sin dar error y actualiza el Caption bien
- Cuando cambio el cuadro combinado (con el formulario abierto) me sale el mensaje de error, pero a pesar de eso tambien me actualiza el Caption bien
- Si quito la linea de actualizar el Caption no da error
Algo raro que me tiene loco
El objetivo es que al cambiar el Area en el combo, se actualice el formulario con los indicadores de esa area. Esto lo hace bien, solo que cuando quiero mostrar la cantidad de registros me da el error