Delphi Tech

>>791
しかもメッセージ固定だし〜。こうすれば？

type
　EMyError = class(Exception);

procedure ErrorPitcher(const msg: String);
begin
　raise EMyError.Create(msg);
end;

procedure ErrorCatcher(E: Exception);
begin
　MessageDlg(E.Message, mtError, [mbOk], 0);
end;

begin
　try
　　if 条件1 then ErrorPitcher('エラー1');
　　if 条件2 then ErrorPitcher('エラー2');
　　if 条件3 then ErrorPitcher('エラー3');
　except
　　on E: EMyErrorException do ErrorCatcher(E);
　end;
end;

スマン、
×　on E: EMyErrorException do ErrorCatcher(E);
○　on E: EMyError do ErrorCatcher(E);