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

Question

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

Answer 1

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

Answer 2

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