TAlphaAbr = Class(TWinControl)
...
private
function GetField(index : integer) : string;
procedure SetField(index: integer; Value : string);
...
published
property NameField: string index 1 read GetField write SetField
property LastField: string index 2 read GetField write SetField
end;
...
implementation
...
procedure Register;
begin
 RegisterComponents('AlphaA', [TAlphaAbr]);
 RegisterPropertyEditor(TypeInfo(string), TAlphaAbr,
   'NameField', TStringProperty);
 RegisterPropertyEditor(TypeInfo(string), TAlphaAbr,
   'LastField', TStringProperty);
...
end;