Merkwürdiger Fehler, TStringlist.SaveToFile

[t2000]

Hallo zusammen,

ich habe seit heute einen ganz merkwürdigen Fehler.
Ein TStringlist.SaveToFile funktioniert nicht mehr.

Delphi-Quellcode:

var
  MeineListe: TStringlist;
begin
  MeineListe := TStringlist.Create;
  MeineListe.Add('xxx');
  MeineListe.SaveToFile( 'D:\temp\TSE\Bu2006839.input.tse');

Die Methode SaveToFile erzeugt den Fehler in der Unit System.SysUtils.

function FileCreate(const FileName: string; Mode: LongWord; Rights: Integer): THandle;

zeile
Result := CreateFile(PChar(FileName), GENERIC_READ or GENERIC_WRITE,
ShareMode[(Mode and $F0) shr 4], nil, Exclusive[(Mode and $0004) shr 2], FILE_ATTRIBUTE_NORMAL, 0);

Die Meldung lautet:

"D:\entwXE\Sopha\bin\ D:\temp\TSE\Bu2006839.input.tse" kann nicht erstellt werden. Die Syntax für den Dateinamen, Verzeichnisnamen oder die Datenträgerbezeichnung ist falsch.

Wobei der erste Teile der Pfad ist, in dem die exe-Datei liegt und der zweite Teil die eigentliche Datei die geschrieben werden soll.

Wer oder Wo ändert den Dateinamen??

Hier ist noch Delphi 10.3.3 mit Windows 10 Enterprise (regelmäßige Updates)

Letzte Woche ging noch alles.

Hat jemand einb ähnliches Verhalten bemerkt? Wondows Update vielleicht?

Viele Grüße
Thomas