Forma bez górnego paska

Czy ktoś może wie jak uzyskać taką formę? Dodatkowo fajnie by było jakby zachowawywała się jak ta "oryginalna" od Windowsa. Mam tu na myśli identyczne położenie względem task bara.

BorderStyle - bsNone
na formę kładziesz Timage w zależności od potrzeb.

BsNone usuwa całkowicie ramkę.

Obrazek ,który zamieściłem chyba wszystko powinnen wyjaśnić.

Na forum.doom9.org już mi ktoś pomógł. Wklejam kod bo może się komuś przyda.

 type
  TForm1 = class(TForm)
    procedure FormShow(Sender: TObject);
  private
    procedure WMNCHitTest(var Msg: TMessage); message WM_NCHITTEST;
  public
    { Public-Deklarationen }
  end;


procedure TForm1.FormShow(Sender: TObject);
begin
  SetWindowLong(Handle, GWL_STYLE, WS_OVERLAPPEDWINDOW and (not WS_CAPTION)); // Tworzenie specjalnego okna
  SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_DRAWFRAME or SWP_NOMOVE or SWP_NOSIZE);
end;

procedure TForm1.WMNCHitTest(var Msg: TMessage); //Ta procedura blokuje skalowanie okna (Brak ikonki po najechaniu na krawędź okna)
begin
  inherited;
  case Msg.Result of
    HTTOP: Msg.Result := HTCLIENT;
    HTTOPLEFT: Msg.Result := HTCLIENT;
    HTTOPRIGHT: Msg.Result := HTCLIENT;
    HTBOTTOM: Msg.Result := HTCLIENT;
    HTBOTTOMLEFT: Msg.Result := HTCLIENT;
    HTBOTTOMRIGHT: Msg.Result := HTCLIENT;
    HTLEFT: Msg.Result := HTCLIENT;
    HTRIGHT: Msg.Result := HTCLIENT;
  end;
end;