求教一个小问题！(0分)

求求大哥们帮我看看这个问题该如何去实现，谢谢谢谢！！！
log.ini文件是一个日志文件，格式大致为：
2004-3-14 18:08:21 33959,32449,4 $1790 hits.
2004-3-14 18:08:23 33959,32449,4 $1790 hits.
2004-3-14 18:08:45 33971,32447,4 $1790 hits.
2004-3-14 18:09:03 33968,32454,4 $1785 hits.
2004-3-14 18:09:04 33968,32454,4 $1785 hits.
………………
现在需要写一个程序去监视该文件，一旦这个文件中的$符号后面出现非数字字符（比如：$中国）就发出一个声音来提示用户，并把该字符所在的行记录到另一个文件中去（比如LOG.TXT），请问该如何实现该功能？？请写出代码，不胜感激！！！
小弟刚接触DELPHI时间不长，问了不少问题，现在没有积分了，还请大哥们帮帮我啊！谢谢！

顶

var
f:textfile;
s:string;
l:integer;
begin
AssignFile(f, 'c:/log.ini');
Reset(f);
while not eof(f) do
begin
readln(f,s);
l:=pos('$',s);
if l>0 then if not (s[l+1] in ['0'..'9']) then beep;
end;
CloseFile(F);

end;