Bestimmte Strings aus einer Datei in StringGrid einlesen

[Klaus01]

Delphi-Quellcode:

var 
  i,int: Integer; 
  int2: String; 
  f: TextFile;
  data :String;
 
begin 
  AssignFile(f,'rofl.txt'); 
  {$I-}
    Reset(f); 
  {$I+}
  
  if IOResult = 0 then
    while not eof(f) do
      begin
        Readln(f,data);                        
        // datenverarbeitung
        ShowMessage(data); 
      end
  else
    // Fehler beim Datei öffnen

  CloseFile(f);                      

end;

Bei diesem Code kommt da auch die Fehlermeldung?

Grüße
Klaus