added block generator by procedure
added delphi changes to prior commit
dropped old procedure name