Add(Button,8522068,105,84)
{
 Left=15
 Top=45
 link(onClick,11818448:doText,[])
}
Add(Edit,14891995,182,28)
{
 Left=115
 Top=45
 Width=220
}
Add(Label,11818448,182,84)
{
 Left=115
 Top=80
 link(Text,14891995:Text,[])
}

procedure TForm1.Button1Click(Sender: TObject);
begin
 Label1.Caption := Edit1.Text;
end;