Draw procedure for block elements

procedure DrawBlock(const Flow: TFlow; ZIndex: integer); override;