Checked bei TVistaMenu

[Freiwilderer]

Hallo,

und zwar baue ich dynamisch ein Menü mit verschiedenen Sprachen auf.

Delphi-Quellcode:

procedure TfMenu.FormCreate(Sender: TObject);
var
 SprachMenu : TMenuItem;
begin
 qWork.Close;
 qWork.SQL.Text := 'Select Sprache, Bezeichnung from Sprachen';
 qWork.Open;
 Sprache1.Clear;
 while not qWork.Eof do
  begin
   SprachMenu := TMenuItem.Create(fMenu);
   SprachMenu.Name    := qWork.fieldbyname('Sprache').AsString;
   SprachMenu.Caption := qWork.fieldbyname('Bezeichnung').AsString;
   SprachMenu.OnClick := SpracheOnClick;
   SprachMenu.GroupIndex := 1;
   Sprache1.Add(SprachMenu);
   qWork.Next;
  end;
end;

Sprache1 ist ein TMenuItem innerhalb eines TVistaMenu
jetzt würde ich gerne die jeweils ausgewählte Sprache mit einem Haken davor markieren (so wie in abbildung: sprachmenu1.jpg)
aber es sieht aus wie in abbildung : sprachmenu2.jpg.

ich finde auch keinerlei weitere einstellungsmöglichkeit für Sprache1 oder die einzelnen SprachMenu Einträge, würde mich über einen tip sehr freuen

mfg

Freiwilderer