Как задать в качестве Parent desktop?

 SetWindowLongPtr(RichEdit->Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW)

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Left= Screen->Width - Width;
Top = Screen->Height - Height;
 
BorderStyle= bsNone;
 
AlphaBlend=true;
AlphaBlendValue=50;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpeedButton1Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RichEdit1MouseMove(TObject *Sender, TShiftState Shift, int X,
          int Y)
{
AlphaBlendValue=255;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::RichEdit1MouseLeave(TObject *Sender)
{
AlphaBlendValue=50;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormPaint(TObject *Sender)
{
Application->MainFormOnTaskBar = false;
ShowWindow(Application->Handle,SW_HIDE);
}
//---------------------------------------------------------------------------

FormStyle = fsStayOnTop;