TWideStringList macht zicken

VergissEs

Hallo zusammen,

ich habe folgendes Problem mit TWideStringList,
ich öffne eine Datei mit LoadFromFile füge eine Zeile ein und speichere es wieder, wenn man das nochmal macht bzw. mehrfach werden "ungewollte" Daten mit gespeichert.

Als Beispiel:

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
	TWideStringList* pWsl = new TWideStringList();
	if (FileExists("c:\\Text.txt")) {
		pWsl->LoadFromFile("c:\\Text.txt");
	}
	pWsl->Add(WideString("TestString"));
	pWsl->SaveToFile("c:\\Text.txt");
	delete pWsl;
}
//---------------------------------------------------------------------------

ergibt dann

TestString
몭몭몭몭몭몭
TestString
몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭몭
TestString

Kommt das bei euch auch vor, bzw. wo liegt mein Fehler?