delphi中如何用read读取文件然后显示?

我想每隔几秒读取一个文本文件r.ini中的语句并显示出来,但是提示有问题,不知道以textFile文件形式如何读取?
procedure TGetIP.Timer1Timer(Sender: TObject);
var
  fR:TextFile;
  str:string;
begin  AssignFile(fR,path+'r.ini');
  read(fR,str);//这里应该怎么改?
  CloseFile(fR);
  showmessage(str);
end;