[lmikle]

Да, это чё-то я протормозил. Естественно, должно быть:

Код:

PtInRect(Rect(Self.Left, Self.Top, Self.Width, Self.Height),pt)

EnableDB и DisableDB - процедуры по включению и отключению БД соответсвенно, которые ты доджен написать. Я ж не заню как у тебя подключение опганизованно.