Да, это чё-то я протормозил. Естественно, должно быть:
Код:
PtInRect(Rect(Self.Left, Self.Top, Self.Width, Self.Height),pt)
EnableDB и DisableDB - процедуры по включению и отключению БД соответсвенно, которые ты доджен написать. Я ж не заню как у тебя подключение опганизованно.