这是怎么回事呀？

这是我刚才在这里的一个问题，是一个同志给的源码，但是我在机器上运行时，出现了错误，并且还是象CPU窗口的错误，还关不掉。大家帮我看一下，多谢了！
    
  var 
  F: TextFile;
  S: string;
begin
  if OpenDialog1.Execute then            
  begin
    AssignFile(F, OpenDialog1.FileName); 
    Reset(F);
    Readln(F, S);                        
    Edit1.Text := S;                    
    CloseFile(F)
  end;
end;