[Cecilio]

Lo probé antes y no funcionó.

La clase esta declarada así:

type
   Tsql= Class
     const ne = 20;
      private
         cm: array[0..ne] of string;
         vl: array[0..ne] of string;
         tabla: string;
      public
         procedure Limpia;
         procedure asigna(tcm:string; tvl:string);
         function carga(ttabla: string): string;
  end;

He comprobado que tampoco puedo asignar anda a "tabla". en el watch dice lomismo que el array.