procedure THIWordTable.ReadTovar;
var
 tovar : array of array of variant;
 x,i,j,n:integer; 
 m:PMatrix;
begin
   n := 0;
   m := ReadMatrix(_data_Matrix);
   if m = nil then exit;
   For j := 1 to row_ do begin
   For i := 1 to col_ do begin
   SetLength(tovar,i,j);
   tovar[i,j] := m._Get[i,j];
   end;
   end;

 tovar[i,j] := m._Get[i,j];

fo := ReadString(_Data,_data_FileNameOpen,_prop_FileNameOpen);
     If fo = '' then begin
      _debug('Error FileNameOpen');
       exit;
         end;