instruccion WITH...

[Thales]

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