[:S.p.a.m.]

всмысле подключиться? обработать? или что?

Если я понял тебя правильно то примерно в этом духе.

Код:

procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;