[cotseec]

Код:

procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Edit1.Text='' //если поле Edit пустое
               then//то...
 end;