Problem mit SHAppBarMessage

[CalganX]

Hi,
mit folgendem Source erstelle ich mir eine AppBar:

Delphi-Quellcode:

procedure TForm1.FormShow(Sender: TObject);
var
  aBuf: _AppBarData;
begin
  MSG_CBACK := RegisterWindowMessage('MSG_CBACK');

  aBuf.cbSize := sizeOf(_AppBarData);
  aBuf.hWnd := self.Handle;
  aBuf.uCallbackMessage := MSG_CBACK;
  aBuf.uEdge := ABE_TOP;

  SHAppBarMessage(ABM_NEW, aBuf);
end;

Mit
ShowMessage( SysErrorMessage(GetLastError) ); fange ich folgenden Fehler ab:

Zitat:

---------------------------
Project1
---------------------------
Klasse ist nicht vorhanden
---------------------------
OK
---------------------------

Hat da jemand eine Idee?

Chris