Dann ist es besagter Fehlercode. Überprüf mal den Dateinamen.
Und mach mal eine ordentliche Fehlerbehandlung:
Delphi-Quellcode:
AssignFile(F, Filename);
{$I-} // interne fehlerbehandlung ausschalten, machen wir selber
Reset(F,1);
{$I+}
if IOResult = 0 then // unsere Fehlerbehandlung
begin
Seek(F,FileSize(F)-128);
BlockRead(F, Buffer, SizeOf(Buffer));
CloseFile(F);
end
else
ShowMessage(SysErrorMessage(getLastError));
Eine vernünftige Fehlerbehandlung ist nicht nur Kosmetik für den Endbenutzer, sondern dient auch der Fehlerfindung und Vermeidung beim Entwickeln.