Delphi – How to make my form always in the best state?

SetWindowPos(tempCursor.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE );

procedure TCursorFrm.CreateParams(var Params: TCreateParams);
const
 WS_EX_NOACTIVATE = $8000000;
begin
 inherited;
 Params.ExStyle := Params.ExStyle + WS_EX_NOACTIVATE;
end;

I have these small cursor shapes, I need to keep everything in all, always…
FormStyle is already fsStayOnTop
I Use this code:

SetWindowPos(tempCursor.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE );

And this (though I don’t know what it does):

procedure TCursorFrm.CreateParams(var Params: TCreateParams);
const
 WS_EX_NOACTIVATE = $8000000 ;
begin
 inherited;
 Params.ExStyle := Params.ExStyle + WS_EX_NOACTIVATE;
end;

But I still can’t get my form in TMenuItems Above.
How to keep my form always in the best condition?

This must be the final or worst hackery I will post.

>Set FormStyle to fsStayOnTop (actual (This step may not be needed above)
>Delete TTimer on the form and set its interval to 100
>In the OnTimer event, place the following code:

If it is visible
SetWindowPos (Self.Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE or SWP_NOMOVE or SWP_NOACTIVATE);

I use it in one of my projects and it seems to work fine.