function TTableNameProperty.GetAttributes: TPropertyAttributes; begin
Result := [paValueList];end;
procedure TTableNameProperty.GetValues(Proc: TGetStrProc); var TableName: String; begin
{ ********************************* здесь вы должны добавить свой код, чтобы с помощью цикла обойти имена всех таблиц, включенных в список *********************************** } for I := 0 to ???? do begin TableName := ????[I]; Proc(TableName); end;end;