unit RegPropEdit;
interface
uses
  DesignIntf, DesignEditors, Typinfo, RasComponent, Classes;
type
  TRasnamePropertyEditor = class(TStringProperty)
  public
    function    GetAttributes: TPropertyAttributes; override;
    procedure    GetValues(Proc: TGetStrProc); override;
    end;
implementation
{ TRasnamePropertyEditor }

function TRasnamePropertyEditor.GetAttributes: TPropertyAttributes;
begin
Result := inherited GetAttributes + [paValueList] - [paMultiSelect, paSubProperties]
end;
procedure TRasnamePropertyEditor.GetValues(Proc: TGetStrProc);
var
  I: Integer;
  S: TStringList;
begin
S:= TStringList.Create;
with S do
  try
  with TRas.Create(nil) do
    try
      GetRASEntries(S);
    finally
      Free;
      end;
    for I := 0 to Pred(Count) do
     Proc(Strings[I]);
  finally
    Free;
    end
end;
end.