unit MyPropertyEditor; 

uses dbtables,DsgnIntf;Classes; 

interface 
  type 
    TDBNamePropEditor = class(TStringProperty) 
      public 
        procedure GetValues(Proc:TGetStrProc);override; 
        function GetAttributes:TPropertyAttributes;override; 
        function GetName:string;override; 
   end;  

procedure Register; 

implementation 

procedure TDBNamePropEditor.GetValues(Proc:TGetStrProc); 
var 
  List:TStringList; 
  i:Integer; 
begin 
  Session.Active:=True; 
  List:=TStringList.Create; 
  try 
  Session.GetDatabaseNames(List); 
  for i :=0 to List.Count-1 do Proc(List.Strings[i]); 
  except 
    List.Free; 
  end; 
  List.Free; 
  Session.Active:=False; 
end; 

function TDBNamePropEditor.GetAttributes:TPropertyAttributes; 
begin 
  Result:=[paValueList,paSortList]; 
end; 

function TDBNamePropEditor.GetName:string; 
begin 
  Result:='DataBaseName'; 
end; 

procedure Register; 
begin
  RegisterPropertyEditor(TypeInfo(String),TMyComponent,'DataBaseName',TDBNamePropEditor);
end;