I didn't find any. But I successfully created a macro (I assigned Ctrl+Alt+E shortcut for it).
When caret was on procedure declaration I jumped to implementation (Ctrl+Shift+Up) then move caret up to begin, Ctrl+Q, O jumps to the other end of blocks, enter for new empty line, move caret up and twice space to indentation.
ecFindProcedureDefinition;
ecUp;
ecFindBlockOtherEnd;
ecLineBreak;
ecUp;
ecChar(' ');
ecChar(' ');