void __fastcall TForm1::FormShow(TObject *Sender)
{
  SetWindowPos(Handle,
               HWND_TOPMOST,
               Left,
               Top,
               Width,
               Height,
               SWP_NOACTIVATE|SWP_NOMOVE|SWP_NOSIZE);
}