if Edit1.Focused then
  //...