Расположить объект справа от меню

[romets]

Уважаемые любители и профессионалы!
Хочу разместить какие-нибудь объекты справа от меню, там обычно имеется свободное место. В других программах часто подбное встречается. В Тотал Коммандере, так там вообще вправо вынесены отдельно два пункта меню "Справка" и "Запуск".
Наверное, это не сложно, но в данный момент пока ничего не придумал.
Спасибо.

[Stilet]

Не вдаваясь в подробности примерно так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus;

type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    N11: TMenuItem;
    N31: TMenuItem;
    procedure FormResize(Sender: TObject);
    procedure N31DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect;
      Selected: Boolean);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormResize(Sender: TObject);
var t:TMenuItem;
begin

end;

procedure TForm1.N31DrawItem(Sender: TObject; ACanvas: TCanvas;
  ARect: TRect; Selected: Boolean);
begin
if TMenuItem(sender).MenuIndex=1 then
begin
 ARect.Left:=Width-(ARect.Right-ARect.Left)-10;
 ACanvas.FillRect(ARect);
 ACanvas.TextOut(ARect.Left,ARect.Top,
  StringReplace(TMenuItem(sender).Caption,'&','',[rfReplaceAll]));
end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
MainMenu1.OwnerDraw:=true;
end;

end.

[Alter]

procedure TForm1.FormCreate(Sender: TObject);
begin
 ModifyMenu(MainMenu1.Handle, 3, mf_ByPosition or mf_Popup or mf_Help, N4.Handle, PChar(N4.Caption));
end;