procedure TForm1.Timer1Timer(Sender: TObject); var Сur: TRect; begin SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE); Сur := Rect(Form1.Left + 0, Form1.Top + 0, Form1.Left + Form1.Width - 0, Form1.Top + Form1.Height - 0); ClipCursor(@Сur); end;