Получение списка Database Names или AliasNames в свойство

[GRIPH]

Пишу компонент, не могу понять как в свойство отгрузить список всех баз данных зарегистрированных в системе (BDE Administrator). Когда делаю свойство TStrings, при добавлении компонента на форму, вылетает эксесс виолейшн. 3 дня уже мучаюсь, подскажите пожалуйста, как это реализовать.
Свойство должно быть как Database Name у TTable или как AliasName у TDatabase.

Совсем замучался. Вот что в итоге накидал, но все равно работать не хочет.

unit StatusLabel;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls, StdCtrls, DB, DBTables;

type
  TMyStrings = class(TStrings);
  TMyStringList = class(TStringList);
  TStatusLabel = class(TPanel)
  private
    { Private declarations }
    MyTable:TTable;
    MyDS:TDataSource;
    MyLabel:TLabel;
    MyDB:TDatabase;
    FDatabaseName: TStrings;
    procedure SetDatabaseName(const Value: TStrings);
  protected
    { Protected declarations }
  public
    { Public declarations }
   constructor Create(AOwner:TComponent);override;
  published
    { Published declarations }
    property DBName: TStrings read FDatabaseName write SetDatabaseName;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Standard', [TStatusLabel]);
end;

{ TStatusLabel }

constructor TStatusLabel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Height:=60;
  Width:=300;
  Caption:='';

  // Лэйбл
  MyLabel:=TLabel.Create(self);
  MyLabel.Parent:=self;
  MyLabel.Top:=5;
  MyLabel.Left:=30;
  MyLabel.Width:= 240;
  MyLabel.Height:=50;


  // Невидимки, таблица и DataSource
  MyTable:=TTable.Create(Self);
  MyDS:=TDataSource.Create(self);
  MyDB:=TDatabase.Create(self);
  FDatabaseName.Create;
//  MyDB.Session.Active:=TRUE;
  MyDb.Session.GetDatabaseNames(FDatabaseName);
  MyDB.Assign(FDatabaseName);
//  MyDB.Session.Active:=TRUE;
end;


procedure TStatusLabel.SetDatabaseName(const Value: TStrings);
begin
  FDatabaseName := Value;
end;

end.

Может кто поправит, или подскажет как сделать правильно...