Y por qué no lo haces así:
Código Delphi
[-]
procedure Procesar(Tabla: TDataset);
begin
with Tabla do
begin
Disablecontrols;
try
...
...
finally
EnableControls;
end;
end;
end;
...
case seleccion of
0: Procesar(Tablas.tbVisVen);
1: Procesar(Tablas.tbVisAve);
2: Procesar(Tablas.tbVisRev);
end;
Un saludo