var
 Catalog  : _Catalog;
 Table    : _Table;
 Column   : _Column ;
 DS       : String;


//DS  -- Connection string
 

   Catalog := CreateCOMObject(StringToGUID('ADOX.Catalog')) as _Catalog;
   Catalog._Set_ActiveConnection(DS);
              // Create a Table Object
   Table := CreateCOMObject(StringToGUID('ADOX.Table')) as _Table;
              // Set the name of a table
   Table.Name := 'Mytable';
   Table.ParentCatalog := Catalog;


      Column := CreateCOMObject(StringToGUID('ADOX.Column')) as _Column;
           With Column do
             begin
               ParentCatalog := Catalog;
               Name    := DataSet_Selected_Fields.FieldByName('Field_Name').asstring;
               Type_   := adInteger;           
             end;

      Table.Columns.Append(Column,  0 ,  0 );

 With Column do
      begin
       ParentCatalog := Catalog;
       Name    := 'CurrentDateTime';
       Type_   := adDate;
       Properties['Description'].Value    := 'DateTime';
      end;

   With Column do
             begin
               ParentCatalog := Catalog;
               Name    := DataSet_Selected_Fields.FieldByName('Field_Name').asstring;
               Type_   := adInteger;           
             end;

Properties['Description'].Value