EditのOnKeyUpイベントで
Label.Caption := Edit.Text
するとか