Delphi Borderless and Captionless Application

Я готов разработать одно приложение в Delphi XE2 без границ и без заголовков, используя следующий код:

  BorderIcons = []
  BorderStyle = bsNone

Но проблема в том, что нет меню, щелкнув правой кнопкой мыши по приложению на панели задач, как на изображении выше. Затем я попробовал следующие коды в событии FormShow, но есть еще одна проблема. Одна граница создается с левой стороны и с левой стороны. Коды:

procedure TForm1.FormShow(Sender: TObject);
var
  r: TRect;
begin
  r := ClientRect;
  OffsetRect(r, 0, GetSystemMetrics(SM_CYCAPTION));
  OffsetRect(r, GetSystemMetrics(SM_CXFRAME), GetSystemMetrics(SM_CYFRAME));
  SetWindowRgn(Handle,
  CreateRectRgn(
  r.Left, r.Top,
  ClientWidth + r.Left, ClientHeight + r.Top), True);

end;

Пожалуйста, помогите мне.