例外処理で下のように記述するのは正しい使い方でしょうか?

procedure Main;
begin
try
func1;
func2;
func3;
except
  on e Exception do
begin
ShowMessage(e.Message);
end;
end;
end;

(func2もfunc3も同じように記述)
procedure func1;
begin
try
なんたらかんたら〜
except
raise
end;
end;