Hallo,
funktionieren die anderen Exit alle? Hast Du mal entsprechende Fehler eingebaut, um das zu prüfen?
Das Einzige, was mir auffällt ist:
Delphi-Quellcode:
if not PhotoTB.Active then
PhotoTB.Open;
PhotoTB.Active := True; // <-- überflüssig, da nach PhotoDB.Open Active = True.
aber dass das der Fehler sein sollte, halte ich für unwahrscheinlich.
Result könnte zu dem Zeitpunkt noch undefiniert sein, sofern es nicht in dem von Dir durch ... dargestellten Ausschnitt mit einem Wert versehen wurde.