请教异常情况处理(20分)

我要读一个文件,当遇到异常情况(任何异常)就终止读文件,并显示错误提示
while not eof(fi) do
begin
try
read(fi,depth);
finally
application.MessageBox(pchar('文件'+edit1.Text+'格式错误'),'警告!',mb_ok);
break;
end;
end;
现在的问题是编译提示break不对,([Error] logcov.pas(119): Cannot BREAK, CONTINUE or EXIT out of a FINALLY clause)
请问应该如何实现,谢谢!

把try finally写到while的外面来
不用break;如果要处理异常可以在Exception块中添加代码