Try..Except..End 例外狀況處理

Try

  ...

  ...

Except

  ...

End;

Exception

Try

  ...

  ...

Except

   on E:Exception do

  begin

    MessageBox(Handle, PWideChar(E.Message), PWideChar(E.ClassName), MB_ICONError);

  end

End;