Titelleiste ausblenden

[API]

guten Abend,

Möchte in meiner Form (BorderStyle = bsSingle) die Titelleiste ausblenden.
Habe folgenden Code gefunden, welcher unter XP auch funktioniert..
unter win2k wird jedoch die Titelleiste nicht ausgeblendet.
Wo liegt der Haken?

Delphi-Quellcode:

procedure TForm1.HideTitlebar;
var
  Style: Longint;
begin
  if BorderStyle = bsNone then Exit;
  Style := GetWindowLong(Handle, GWL_STYLE);
  if (Style and WS_CAPTION) = WS_CAPTION then
  begin
    case BorderStyle of
      bsSingle,
      bsSizeable: SetWindowLong(Handle, GWL_STYLE, Style and
          (not (WS_CAPTION)) or WS_BORDER);
      bsDialog: SetWindowLong(Handle, GWL_STYLE, Style and
          (not (WS_CAPTION)) or DS_MODALFRAME or WS_DLGFRAME);
    end;
    Height := Height - GetSystemMetrics(SM_CYCAPTION);
    Refresh;
  end;
end;