AppBar <- Wie richte ich das ein?

[thefuture]

ich will eine leiste einrichten wie die taskleiste, nur oben. nur wie krieg ich die form nach oben dass die auch die anderen programme nach unten schiebt?
hab auf http://www.delphipraxis.net/internal...ghlight=appbar das hier gefunden

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
var 
Result : Integer; 
begin 
DAta.cbSize := SizeOf(TAppBarData);; 
Data.hWnd := Form1.Handle; 
Data.uCallbackMessage := WM_APPBAR; 
Data.uEdge := ABE_TOP; 

Data.rc.Left := 0; 
Data.rc.Top := 0; 
Data.rc.Right := 0; 
Data.rc.Bottom := 20; 

result := SHAppBarMessage(ABM_NEW, Data); 

if Result = 0 then 
begin 
  ShowMessage('AppBar konnte nicht registriert werden'); 
  exit; 
end; 
SHAppBarMessage(ABM_QUERYPOS, Data); 
SHAppBarMessage(ABM_SETPOS, Data);

..funktioniert aber nicht.
der wert "Data" is undefiniert..

kann mir jemand sagen wie ich so ne leiste erstellen kann?