MultiSyn: Schema erstellen funzt net

[yankee]

Ich will ein Schema (oder wie es heißt) bei einem MultiSyn zu Laufzeit erstellen. Das mache ich so:

Delphi-Quellcode:

    with MainForm.SynMultiSyn1 do
    begin
        Schemes.Add;
        Schemes.Items[Schemes.Count-1].SchemeName :=inputbox('Profilname','Bitte einen Namen für das Profil eingeben','');
    end;
    ListBoxUpdate;
    ListBox1.ItemIndex :=ListBox1.Items.Count-1;

Und genauso funzt es nicht. Bei Schemes.Add tritt nämlich 'ne Exeption auf. Aber nicht immer, sondern nur genau dann, wenn auch ein SynEdit existiert.
Aber WIESO?
bzw. Was muss ich tun um diesen Fehler zu beseitigen?