PopupMenu

Socorro alguem sabe como devo fazer pra adicionar em tempo de execução um item ao menu. já tentei as seguintes possibilidades e não funcionou.

var
NewI: TMenuItem;
begin
NewI := TMenuItem( PopupMenu1 );
NewI.Caption := ´Teste´;
NewI.Visible := True;

PopupMenu1.Items.Add( NewI ); //tentei assim e também assim
PopupMenu1.Items.Insert( 0, NewI ); //também não funciona.

NewI.Free;
end;

Se alguém puder me ajudar.. Por favor...