[Zhk@]

Создана БД, в ней таблицы. В одной из таблиц есть поле типа МЕМО
Мне нужно изменить программно св-во "Формат текста" на RTF.
Каким образом это можно сделать?
вот кусок кода

Код:

procedure CreateTablesADO(DatabaseName: string);
var
  Catalog: _Catalog;
  Table: _Table;
  Column: _Column;
  FKKey: _Key;
  Type1: integer;
begin
  Catalog:=CoCatalog.Create;
  try
    Catalog.Set_ActiveConnection('Provider=Microsoft.ACE.OLEDB.12.0;Data Source='+DatabaseName+
    ';Persist Security Info=False');
    Table:= CoTable.Create;
    //Классы
    try
      Table.Name:='Class';
      Table.ParentCatalog:=Catalog;
      Column:=CoColumn.Create;
      try
        with Column do
        begin
          ParentCatalog:=Catalog;
          Name:='ClassKey';
          Type_:=adInteger;
          Properties['Autoincrement'].Value:=True;
        end;
      Table.Columns.Append(Column, 0, 0);
      finally
         Column:= nil;
      end;
      Column:=CoColumn.Create;
      try
        with Column do
        begin
          ParentCatalog:=Catalog;
          Name:='Comment';
          Type_:=203;{Создание поля с типом МЕМО}
{Посмотрел имена Properties, похожего на TEXT FORMAT  не нашел}

        end;

Может, кто знает другие способы? Заранее благодарен.