const crMyCursor = 5;
procedure TForm1.FormCreate(Sender: TObject);
begin
 Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'NewCursor');
 Cursor := crMyCursor;
end;

 SetSystemCursor(LoadCursor(HInstance, 'NewCursor'), OCR_NORMAL);

uses windows, messages, KOL;
var W:PControl;
{----------------------------------------------------------------------------}
// Эта функция возвратит Handle компонента, который находится под курсором мыши.
Function GetWinHandle:HWND;
var PT:TPoint; // Структура для хранения глобальных координат мышки
begin
    GetCursorPos(PT);
    Result := WindowFromPoint(PT);
end;
{----------------------------------------------------------------------------}
Procedure WMouseDown(Dummy:Pointer; Sender:PControl; var Mouse:TMouseEventData);
begin
    W.Cursor:=LoadCursor(0, IDC_HAND);
    SetCapture(W.Handle); // Захватываем мышь (пока нажата кнопка на ней)
end;
{----------------------------------------------------------------------------}
Procedure WMouseUp(Dummy:Pointer; Sender:PControl; var Mouse:TMouseEventData);
var HW:THandle;
begin
    ReleaseCapture; // Отменяем захват мыши
    W.Cursor:=LoadCursor(0, IDC_ARROW);
    HW := GetWinHandle;

    if Mouse.Button = mbLeft then
     begin
       if HW<>0 then begin
           ShowWindow(HW, sw_hide);
           ShowWindow(HW, SW_SHOW {SW_SHOWDEFAULT});
           SetWindowPos(HW, HWND_TOPMOST, 1, 1, 20, 20, SWP_NOMOVE + swp_nosize);
           end;
     end;
    // Если была нажата правая кнопка мыши, то включаем "Нормальный режим"
    if Mouse.Button = mbRight then
       SetWindowPos(HW, HWND_NOTOPMOST, 1, 1, 20, 20, SWP_NOMOVE + swp_nosize);
end;
{----------------------------------------------------------------------------}
Procedure StartForm;
begin
    W := NewForm( Applet, 'TopSet v1.0' ).SetClientSize( 100, 50 ).SetPosition(1,1);
    W.Margin := 0;
    W.ExStyle := WS_EX_TOOLWINDOW;
    W.StayOnTop:=True;
    W.CanResize := False;

    W.OnMouseDown:=TOnMouse(MakeMethod(nil, @WMouseDown));
    W.OnMouseUp:=TOnMouse(MakeMethod(nil, @WMouseUp));

    Run( W );
end;
{----------------------------------------------------------------------------}
begin
    StartForm;
end.