instruccion WITH...

[armadillo]

No habia pensado en eso, lo probe y lamentablemente no funciona, ya que me da error..., los componente DataSet que utilizo son los FibPlus, asi que probe:
procedure Procesar(Tabla: TDataset);
begin
with Tabla do
begin
Disablecontrols;
try
...
...
finally
EnableControls;
end;
end;
end;
Y luego:

procedure Procesar(Tabla: TpFIBDataset);
begin
with Tabla do
begin
Disablecontrols;
try
...
...
finally
EnableControls;
end;
end;
end;Y nada, el tema esta que si fuera un DataSet comun funcionaria, pero aqui me da eror dentro del With cuando intento leer la propiedad SelectSQL del componente, no si tengo que agregar algunas unit en el Form, para que me lo coja, pero nada no logre hacerlo funcionar, hice una prueba con un Dataset Comun y corriente en otro Programa y si me funciona pero aqui utilizando esot compnentes no... en fin debere hacer un procedure por cada tabala