Propriedades de componente

eu gostaria de criar um componente chamado customedit1mm, derivado de tcustomedit
a unit abaixo não funciona, já que na propriedade datasource deveria poder escolher algum datasource do formulário e a datafield deveria apresetar os campos do datasource selecionado.

a parte de datasource funciona corretamente, mas a parte de data field não funciona

os campos não aparecem, e nem sequer aparece um drop para poder escolhar algum campo, ele fica apenas esperando um string eu tenho que digitar na mão o campo.

mas se eu retirar o número 2 do NOME da propriedade funciona corretamente, a propriedade datafield começa a exibir os campos do datasource selecionado.

alguem sabe me dizer o pq?????


unit CustomEdit1MM;

interface

uses
SysUtils, Classes, DBCtrls, Controls, StdCtrls, db, dbclient, dxDBELib, Mask;

type
TCustomEditMM = class(TCustomEdit)
private
fdatalink : TFieldDataLink;
fdatalink2: TFieldDataLink;
function GetDataField2: string;
function GetDataSource: TDataSource;

procedure SetDataField2(const Value: string);
procedure SetDataSource(const Value: TDataSource);



{ Private declarations }
protected
{ Protected declarations }
public
constructor Create(AOwner: TComponent); override;
{ Public declarations }

published

property DataSource: TDataSource read GetDataSource write SetDataSource;
property DataField2: string read GetDataField2 write SetDataField2;
// property text;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents(´Standard´, [TCustomEditMM]);
end;




{ TCustomEditMM }

constructor TCustomEditMM.Create(AOwner: TComponent);
begin
inherited;
fdatalink := TFieldDataLink.Create;
fdatalink2:= TFieldDataLink.Create;
end;


function TCustomEditMM.GetDataField2: string;
begin
Result := FDataLink.FieldName;
end;


function TCustomEditMM.GetDataSource: TDataSource;
begin
Result := FDataLink.DataSource;
end;



procedure TCustomEditMM.SetDataField2(const Value: string);
begin
FDataLink.FieldName := Value;
end;


procedure TCustomEditMM.SetDataSource(const Value: TDataSource);
begin
if not (FDataLink.DataSourceFixed and (csLoading in ComponentState)) then
FDataLink.DataSource := Value;
if Value <> nil then Value.FreeNotification(Self);
end;


end.