void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
  if(SpeedButton1->Down)
    SetWindowPos(Handle,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE | SWP_NOSIZE);
  else
    SetWindowPos(Handle,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE | SWP_NOSIZE);
}