Jak narysować obramowanie dowolnego komponentu

Witam
Mam taki problem.
Chce obramować dowolny aktywny komonent. Tzn ten na którym stoję.
A jak przejdę na inny komponent to żeby obramowanie takie znikneło.
Np obramowanie dla Edit lub Checkbox itd.
Pomocy

  with Sender as TControl do
  begin

    Form1.Canvas.Pen.Width:=5;
    Form1.Canvas.Rectangle(Left,Top,Left+Width,Top+Height);

  end;

to np w zdarzeniu OnEnter przycisku czy czegoś innego, byle było "potomkiem" klasy TControl ( przeszukujesz klikając na typ komponentu prawym przyciskiem myszy i "Find Declaration" i tak samo dla klas do których się dokopiesz, ważne by miała parametry: Left, Top, Height, Width )

żeby wyczyścić bazgroły ( np w w zdarzeniu OnExit ) wywołujesz

  Form1.Refresh(); // czy jak tam nazwałeś tą formę

OnEnter i OnSelect zadziałają na wybór czegoś przy pomocy: strzałek, tabulatora, kliknięcia myszą

jeżeli chcesz by tak reagowało możesz spróbować używać OnMouseMove

lub w ogólnym zdarzeniu na ruch myszą sprawdzić nad jakim komponentem jest i zdalnie wywołać jego OnEnter a potem OnExit =)

Edit

nie to żebym miał jakiś żal ale lepiej bym się poczuł gdyby ukazała się tu jakaś odpowiedź
"Dzięki! tego szukałem!"
albo
"Do d**y z tym!"
byle coś było....