格式化源码的最新板

				unit testampersand;
				
				interface
				
				implementation
				
				function tester(foo: integer): integer;
				begin
				  Result := foo + 3;
				end;
				
				procedure hiddenproc;
				var
				  Width: integer;
				begin
				  Width := &testampersand.tester(500);
				end;
				
				end.