@Luckie:
Diese alten Pascal-Routinen nutzen IOResult und nicht GetLastError
Und in IOResult steht der letzte Fehler drin? Zumindest, wenn die Datei nicht existiert, kommt der richtige Fehlertext.
@EWeiss: Die Kritik an deinen Code war nicht persönlich gemeint nur eine Konstruktive Kritik. Nehmen wir das Beispiel mit den Konstanten. Wenn du diese hart codest und sie ändern sich mal, bin ich mir zu hundert Prozent sicher, dass du nicht alle Stellen findest, wo du sie benutzt hast. Benutzt du aber eine benannte Konstante, musst du sie nur an einer Stelle im Code ändern.