Código Delphi [-]procedure TForm1.Edit1Change(Sender: TObject); begin Label1.caption:=Edit1.text; end;
procedure TForm1.Edit1Change(Sender: TObject); begin Label1.caption:=Edit1.text; end;