Delphi/Pascal: 487