Delphi-PRAXiS - Delphi AppBar problem

Hallo!

Habe eine AppBar erstellt. Allerdings können andere Programme die AppBar verdecken, was
eigentlich nicht der Fall sein sollte. Die Bar wird am rechten bildschirmrand angezeigt.

Hier der Code:

Code:

			procedure TMainFrm.FormShow(Sender: TObject);

begin

  Data.cbSize := SizeOf(TAppBarData);;

  Data.hWnd := MainFrm.Handle;

  Data.uCallbackMessage := WM_APP;

  Data.uEdge := ABE_RIGHT;

  Data.rc.Left := 0;

  Data.rc.Top := 0;

  Data.rc.Right := screen.Width-100;

  Data.rc.Bottom := 0;

  if SHAppBarMessage(ABM_NEW, Data) = 0 then begin

    ShowMessage('AppBar konnte nicht registriert werden');

    exit;

   end;

  SHAppBarMessage(ABM_QUERYPOS, Data);

  SHAppBarMessage(ABM_SETPOS, Data);

  Application.ProcessMessages;

  MoveWindow(MainFrm.Handle,screen.Width-100,0,100,screen.Height,true);

end;