Menu aplikacji

Jak mozna edytowac menu które pojawia sie jak na pasku zadań klikniemy prawym ?

TForm1 = class(TForm)
  procedure FormCreate(Sender: TObject);
private
public
  procedure WndProcs(var Msg : TMsg; var Handled:Boolean);
  end;

const MSG_OPROGRAMIE = 100;

procedure TForm1.WndProcs(var Msg : TMsg;var Handled:Boolean );
begin
if (Msg.message=WM_SYSCOMMAND) and (msg.wParam=MSG_OPROGRAMIE) then
  ShowMessage('Program testowy');
Handled:=False;
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
AppendMenu( GetSystemMenu( Application.Handle, FALSE ), MF_SEPARATOR, 0, ' ' );
AppendMenu( GetSystemMenu( Application.Handle, FALSE ), MF_STRING, MSG_OPROGRAMIE, 'O Programie...' );
Application.OnMessage:=WndProcs;
end;