Vielen Dank ihr Beiden.
Wo ist denn die Zeile
xBitmap := TBitmap.Create;
Gute Frage
Jetzt funktionieren beide Versionen, die "Glücklich Machende" und die "BTW" auch.
Zur Frage "Und was soll dir dieses
Exception-Handling bringen?"
"FileDirOK()" prüft den Pfad und legt ihn ggf an.
Wenn das schon nicht geht, liefert QRCodeSave "false" zurück und die übergeordneten Abläufe werten das aus.
FehlerOK() speichert einen Eintrag ins Fehlerlog und prüft, ob das Programm im "AutoMode" läuft.
Falls nicht, gibts auch noch einen Fehler-Dialog für den Anwender.
Erfahrung ist etwas, daß man erst bekommt, kurz nachdem man es dringend gebraucht hätte.