Помигать прямоугольником вокруг компонента при ошибке.

[Almaas]

Всем доброго времени суток.
Пишу на Turbo Delphi Explorer.
Сейчас обрабатываю ошибки ввода в своей программе. Мне надо, помигать красным прямоугольником вокруг того компонента ввода (Tedit или TRadioGroup) где введены неправильные данные.
Как мигать самим фоном эдита, я написал:

//Мигаем фоном Edit'а:
Procedure BlinkEdit(w:TEdit);
begin
      for i:=0 to 3 do
      begin
        w.Color:=clRed;
        w.Font.Color:=clWhite;
        w.Update;
        Sleep(80);
        w.Color:=clWindow;
        w.Font.Color:=clWindowText;
        w.Update;
        Sleep(80);
      end;
end;

но мне не нравится.
Как помигать фоном группы радиокнопок я тоже нашел:

    begin
      bmp := TBitmap.Create;
      try
        bmp.Width := Form2.RadioGroup1.Width;
        bmp.Height := Form2.RadioGroup1.Height;
        Form2.RadioGroup1.PaintTo(bmp.Canvas, 0, 0);
        dc := GetDC (Form2.RadioGroup1.Handle);
        for i := 0 to 7 do begin
          BitBlt (dc, 0, 0, bmp.Width, bmp.Height, bmp.Handle, 0, 0, PATINVERT);
          Sleep (60 * (i mod 2 + 1));
          Form2.RadioGroup1.Update;
        end;
      ReleaseDC (Form2.RadioGroup1.Handle, dc);
    finally
    bmp.Free;
    end;

В принципе - работает, но мне не нравится инверсное мигание... Да и не совсем я понимаю эту процедуру, хоть и начитался уже про DC...
Вот как-то бы просто прямоугольником поверх всех компонентов помигать...

Я пробовал так:
создал TImage со свойством Transperent:=True;
в конструкторе поставил этот Image на передний план (Bring to Front).
потом, по аналогии с эдитом:
Procedure BlinkRect(L,T,H,W:integer);
Form2.Image1.Left:=L;
Form2.Image1.Top:=T;
ну и т.д.
потом организовал цикл, как в процедуре с Эдитами, только без Update... ничего не произошло.
вот и думаю, работоспособно решение или нет и надо было update делать или нет?

[Almaas]

Не, ну понятно, что я с TImage сегодня вечером еще посижу. Просто может есть более простые и универсальные варианты?