Delphi:

show blocks helper