Te añado un pequeño ejemplo que acabo de probar:
Código Delphi
[-]unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Memo1: TMemo;
Memo2: TMemo;
Button1: TButton;
procedure Edit1Change(Sender: TObject);
private
public
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Edit1Change(Sender: TObject);
var
i:Integer;
begin
For i:=1 to form1.ComponentCount -1 do
begin
if Components[i].ClassType = Tedit then
begin
(Components[i] As Tedit).text:=Edit1.Text;
end;
end;
end;
end.
Un Saludo.