[Помидоркин]

Вопрос, у меня, довольно общий.
В функции (методе класса) несколько раз повторяется некое действие, логично вынести его в отдельную функцию:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

function GetTag(Str: String; Tag: String):String; var   p1, p2: Word; begin   . . . end;   function TFB2Folder.GetAutorTitle(FileName: String):String; var F: File of Byte;      x: Byte;      u, titleInfo: UTF8String; begin    . . .      Result:= GetTag([параметр]; [параметр]);     . . .   Result:= Result+GetTag([параметр]; [параметр]); end;

но дело в том, что это некое действие повторяется только в этой функции (методе класса), в связи с чем возник вопрос: может ли метод быть помещен внутри другого метода. Дело в том, что несколько раз на форумах и в статьях по delphi наталкивался на странную конструкцию, что-то вроде (не ручаюсь за точное воспроизведение):

Код:

1 2 3 4 5 6 7 8 9 10

procedure SomeProc ; var . . .  . . . begin // блок расположенный . . . // внутри end; // основной процедуры . . . begin // реализация . . . // процедуры SomeProc end;

Вообще, объясните (если кто понял, что я имею ввиду ), что это за конструкция.