가장초보적인 질문인것같은데.. 죄송합니다.

폼에 edit, label, button 을 만들어서 edit창에 입력값을 넣었을때
button 을 누르면 입력값이 label 에 나오게 하려는 간단한 건데
안되네요..

다음어디에 멀 어케 추가해야할까여?
----------소스--------------------
...
..
.

type
TForm1 = class(TForm)
   edit1: TEdit;
   Label1: TLabel;
   Button1: TButton;
   Button2: TButton;
   procedure Button1Click(Sender: TObject);
   procedure Button2Click(Sender: TObject);
private
   { Private declarations }
public
   { Public declarations }
end;

var
Form1: TForm1;
x : string;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
x := 'edit1.text';
label1.caption := x;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
edit1.Text := '';
label1.caption := '';
end;

end.
---------------------------

개인적으로 구입한 서적을 봐도 간단한 이원리가 응용된 소스를
찾지 못해서 그럽니다.
넘 쉬운건데 지송합니다.