Como dije, aún eliminando la línea del Free obtengo errores. Aquí está el codigo completo que según yo coincide con lo que dices:
Código:
unit EditEx;
interface
uses
SysUtils, Classes, Controls, StdCtrls;
type
TEditEx = class(TEdit)
private
FBoton: TButton;
protected
procedure SetParent(AParent: TWinControl); override;
public
constructor Create(AOwner: TComponent); override;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TEditEx]);
end;
constructor TEditEx.Create;
begin
inherited;
FBoton := TButton.Create(Self);
end;
procedure TEditEx.SetParent(AParent: TWinControl);
begin
inherited;
FBoton.Parent := AParent;
end;
end.
¿Qué me falta?