Code:

type

TTableNameProperty = class(TStringProperty)

   function GetAttributes: TPropertyAttributes; override;

   procedure GetValues(Proc: TGetStrProc); override;

end;

implementation

{ TTableNameProperty }

function TTableNameProperty.GetAttributes: TPropertyAttributes;

begin

Result := [paValueList];

end;

procedure TTableNameProperty.GetValues(Proc: TGetStrProc);

var

TableName: String;

I: Integer;

begin

{ здесь вы должны добавить свой код, ?тобы с помощью цикла обойти имена всех

таблиц, включенных в список }

for I := 0 to ???? do

begin

   TableName := ????[I];

   Proc(TableName);

end;

end;

Code:

RegisterPropertyEditor(TypeInfo(string), TcsNotebook, 'TableName', TTableNameProperty);