Два Edita надо сделать недоступным один из них

[nik-maximal]

Дано два эдита, надо сделать так чтобы если в одном есть текст, то второй должен быть недоступен, и наоборот.

Заранее спасибо

[Luuzuk]

procedure TForm1.Edit1Change(Sender: TObject);
begin
  edit2.Enabled := edit1.Text = '';
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
  edit1.Enabled := edit2.Text = '';
end;