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'; 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.