procedure SetTop(Top : Boolean; Handle : HWND);
Begin
  If Top Then Begin
    SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_SHOWWINDOW+SWP_NOMOVE+SWP_NOSIZE);
    SetWindowPos(Handle,HWND_TOP,0,0,0,0,SWP_SHOWWINDOW+SWP_NOMOVE+SWP_NOSIZE);
              End
         Else SetWindowPos(Form1.Handle,HWND_NOTOPMOST,0,0,0,0,SWP_SHOWWINDOW+SWP_NOMOVE+SWP_NOSIZE);
End;