求帮助。。设置窗体背景颜色的问题

[yangzhihang1988]

各位大侠。帮帮忙。初学Delphi，这是书本上的一个课后习题，可是书上没有解释。我不知道在代码编辑窗中该怎么写，给点思路吧，先在这谢谢了，
要求用if...then 语句来设置背景颜色。
题目： 在窗体的文本框中输入red，单击【确定】按钮后，窗体背景颜色变为红色，同时显示“窗本背景为红色”字样。 窗体框中有一个label，一个edit，和一个button。

[bdmh]

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text = 'red' then
    Self.Color := clRed;
end;

[Versus1008]

procedure TForm3.Button1Click(Sender: TObject);
begin
  if Edit1.Text = 'red' then
  begin
    Label1.Caption := '窗本背景为红色';
    Self.Color := clRed;
  end;
end;

[yangzhihang1988]

[Quote=引用 2 楼 versus1008 的回复:]
Delphi(Pascal) code

procedure TForm3.Button1Click(Sender: TObject);
begin
if Edit1.Text = 'red' then
begin
Label1.Caption := '窗本背景为红色';
Self.Color := clRed;
end;
end;
[/Quote]

是了，谢谢。