noch einmal E/A Fehler 6

[Gerkey]

Seit einem Stromausfall wird beim Lesen einer Textdatei der Fehler "E/A Fehler 6" ausgegeben.
Habe sowohl Outbyte Repair laufen lassen als auch PC Repair. Fehler bleibt.
In einem anderen Programm, dass auch ausseiner Textdatei liest, tritt der Fehler nicht auf.
Code nachstehend.
Kann mir jemand helfen ?

Procedure DATEN_LESEN;
var f : TextFile; s : String;
begin
AssignFile(f,'C:\Team\TDaten.txt');
reset(f);
try
while not eof(f) do
begin
readln (s); { hier Fehlermeldung "E/A Fehler 6" }
ShowMessage('s = ' + s)
end;
finally
CloseFile(f);
end;

{ Übernehme ich naachstehenden von Moderator Luckie in Delphi-Praxis empfohlenen
Code, wird in Zeile "Reset(F,1]" gemeckeret : "E2034 zu viele Parameter !"
AssignFile(F, 'C:\Team\TDaten.txt');
{$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)); }
end;