Wie nutze ich TNTWare Delphi Unicode Components?

[AlexII]

Hab jetzt folgendes Programm geschrieben, aber das mit Unicode funktioniert nicht überall. Im PopupMenü geht's, im Panel und die Showmessage nicht

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    TntPanel1: TTntPanel;
       Panel1: TPanel;

    TntPopupMenu1: TTntPopupMenu;
       PopupMenu1: TPopupMenu;

    Men2: TTntMenuItem;
    Men1: TMenuItem;

    procedure Men1Click(Sender: TObject);
    procedure Men2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Men1Click(Sender: TObject);
begin
ShowMessage('Menü ohne Unicode, ändern, über.');
end;

procedure TForm1.Men2Click(Sender: TObject);
var a: WideString;
begin
a:='Menü mit Unicode, ändern, über.';
ShowMessage(a);
end;

end.