Delphi Tech

わたしもがんばあて、かんがえてみたよ！みてね！
procedure errDayo;
begin
　messagebox(〜);
　exit;
end;

begin
　if 〜 then errDayo;

これでどお？('-`)?