procedure foo(const bar: Integer);