Free a un componente dentro de otro

[ecfisa]

Hola thelibmx.

Suponiendo que le hayas dado un nombre en la creación, ejemplo:

Código Delphi [-]
...
implementation

uses Unit2;

var
  DE: TDBEdit;

procedure TForm1.FormCreate(Sender: TObject);
begin
  DE:= TDBEdit.Create(nil);
  DE.Name:= 'MiDBEdit'; // <- nombre
  DE.DataSource:= DataSource1;
  DE.DataField:= 'Name';
  DE.Parent:= SCrollBox1;
end;

Basta con hacer:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Form2.Edit1.Text:= (ScrollBox1.FindChildControl('MiDBEdit') as TDBEdit).Text;
end;

Saludos.