SelectBox - как его правильнее сделать

[MyLastHit]

Здравствуйте. Как сделать SelectBox? ТЕ при зажатии ЛКМ работал инструмент выделения прямоугольник? И как обработать его область?
Вот насколько я вижу вариант решения(с ходу):
Создаем шейп, без заливки с краями пунктирными.
Прячем его.
Обрабатывает OnMouseDown как то так:

x:=Mouse.X;
y:=Mouse.Y;
shp1.top:=y;
shp1.left:=x;
shp1.height:=2;
shp1.width:=2;
shp1.show;
flag:=true;

Потом в таймере с маленьким интервалом как то так:

if flag then
begin
  shp1.width:=Mouse.X-shp1.left;
  shp1.height:=Mouse.Y-shp1.top;
end;

Смотрим положение получившегося шейпа и делаем нужные действия с теми элементами которые попали в его область.
И под конец в OnMouseUp его прятать:

shp1.hide;
flag:=false;

Что то по рациональнее можно придумать?

[Sibedir]

Кинте на форму TApplicationEvents (закладка Additional) и сделайте так:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
  sp: TSmallPoint;
begin
  case Msg.message of
    WM_MOUSEMOVE: begin
      Integer (sp) := shp1.Tag;
      shp1.width  := Mouse.CursorPos.X - sp.x - shp1.Left;
      shp1.height := Mouse.CursorPos.Y - sp.y - shp1.Top;
    end;
    WM_LBUTTONUP: begin
      ClipCursor (nil);
      shp1.Visible := False;
      ApplicationEvents1.OnMessage := nil;
      ТУТ ВАШИ ДЕЙСТВИЯ
    end;
  end;
end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
  sp: TSmallPoint;
  r: TRect;
begin
  sp.x := Mouse.CursorPos.X - X;
  sp.y := Mouse.CursorPos.Y - Y;
  shp1.Tag := Integer (sp);

  shp1.Left := X;
  shp1.Top := Y;
  shp1.Width := 0;
  shp1.Height := 0;

  r := Rect (sp.x, sp.y, sp.x+ClientWidth, sp.y + ClientHeight);
  ClipCursor (@r);

  shp1.Visible := True;

  ApplicationEvents1.OnMessage := ApplicationEvents1Message;
end;

procedure TForm1.ApplicationEvents1Deactivate(Sender: TObject);
begin
  PostMessage (Handle, WM_LBUTTONUP, 0, 0);
end;