TPLSQLTable = class(TObject)
  private
    FValues: Variant;
    FTableSize: Integer;
    FStringSize: Integer;
    function  GetValue(Index: Integer): Variant;
    procedure SetValue(Index: Integer; const Value: Variant);
    function  GetCount: Integer;
    procedure SetCount(Value: Integer);
    procedure SetTableSize(Value: Integer);
    function  GetAsString: string;
    procedure SetAsString(const Value: string);
  public
    constructor Create(ATableSize, AStringSize: Integer);
    procedure Assign(Source: TPLSQLTable);
    property  Values[Index: Integer]: Variant read GetValue write SetValue; default;
    property  TableSize: Integer read FTableSize write SetTableSize;
    property  StringSize: Integer read FStringSize write FStringSize;
    property  Count: Integer read GetCount write SetCount;
    property  AsString: string read GetAsString write SetAsString;
    property  ValueArray: Variant read FValues write FValues;
  end;