Memofeld - Cursor nicht sichtbar

[Live]

Hey alle zusammen!

Habe lange die SuFu benutzt, aber keinen entsprechenden Beitrag gefunden. Vielleicht habe ich auch nur irgendwo einen kleinen Fehler, den ich mal wieder selber nicht finde.
Ich hoffe ihr könnt mir weiterhelfen, folgende Situation:

Ich lese aus einer XML Datei einen Farbwert aus und weise diesem einem Memofeld zu. Nachdem die Farbe zugewiesen ist, verschwindet der Cursor bei einem Mouseover über das Memo.

Ich habe erst geschaut, ob es an dem Memofeld liegt, aber bei RichEdit verhält es sich ebenso.

Hier der Code:

Delphi-Quellcode:

procedure TForm7.FormCreate(Sender: TObject);
var
XMLchatoptions:IXMLNode;
XMLchat_interface_background: TColor;
  begin
    GetApplicationDirectory; // Ließt das Applikationverzeichnis aus und speichert es in appdir
    Optionsdoc.LoadFromFile(appdir+'settings\options.xml');
    XMLchatoptions:=Optionsdoc.ChildNodes[1];
    XMLchat_colors_background:= XMLchatoptions.ChildNodes['chat_colors_background'].NodeValue;
    Memo1.Color:=XMLchat_colors_background;

Die Farbe wird erfolgreich verändert, alles kein Problem, nur der Cursor verschwindet. Irgendwelche Vorschläge?