再开一贴,放分,简单的填空,白捡分,看谁运气好

Question

窗口上有Edit1和Edit2两个控件，要求做到
1)当用户在Edit1输入内容时，清空Edit2的内容
2)当用户在Edit2输入内容时，清空Edit1的内容procedure TForm1.OnEdit1Change(Sender : TObject);
begin
  //请在这里写代码
end;procedure TForm1.OnEdit2Change(Sender : TObject);
begin
  //请在这里写代码
end;=========================================
这是一填空题,只允许在规定的地方写上代码
上次题目出错了,录入错误要求逻辑正确,简练,和上次不同,这次答对才给分为了防止不劳而获的人,所以出了这道题,请原谅"顶","up"等字眼者无分.
本来想多放点分,可是提示不允许

Answer 1

procedure TForm1.OnEdit1Change(Sender : TObject);
begin
//请在这里写代码
  Edit2.onchange := nil;
  edit2.text := '';
  Edit2.onchange := OnEdit2Change;
end;procedure TForm1.OnEdit2Change(Sender : TObject);
begin
//请在这里写代码
  Edit1.onchange := nil;
  edit1.text := '';
  Edit1.onchange := OnEdit1Change;  
end;

Answer 2

procedure TForm1.OnEdit1Change(Sender : TObject);
begin
  //请在这里写代码
  Edit2.Text:='';
end;procedure TForm1.OnEdit2Change(Sender : TObject);
begin
  //请在这里写代码
  Edit1.Text:='';
end;

Answer 3

procedure TForm1.OnEdit1Change(Sender : TObject);
begin
//请在这里写代码
 if TEdit(Sender).Tag = 1 then
    Exit;
  Edit2.Tag := 1;
  Edit2.Clear;
  Edit2.Tag := 0;
end;procedure TForm1.OnEdit2Change(Sender : TObject);
begin
//请在这里写代码
 if TEdit(Sender).Tag = 1 then
    Exit;
  Edit1.Tag := 1;
  Edit1.Clear;
  Edit1.Tag := 0;
end;如果用一句话，似乎不可能实现不知道填空是不是和英语中的完形填空一样。

Answer 4

再来
procedure TForm1.OnEdit1Change(Sender : TObject);
begin
//请在这里写代码
 if not Edit2.Focused  then
   Edit2.Clear;
end;procedure TForm1.OnEdit2Change(Sender : TObject);
begin
//请在这里写代码
 if not Edit1.Focused  then
   Edit1.Clear;
end;
还是一个if语句，就是不知道简简单单的一句话一个词如何实现