Окно поверх всех

function Top_Most(Top_M:boolean;Form:Tform):boolean;
begin
with Form do
if Top_M = true then begin
SetWindowPos(Handle,
HWND_TOPMOST,Left,Top,Width,Height,
SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
result := top_m;
end else begin
SetWindowPos(Handle,
HWND_NOTOPMOST,Left,Top,Width,Height,
SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
Result := top_m;
end;
end