Процедура в процедуре

procedure TForm1.N13Click(Sender: TObject);
begin
 form3.show
end;
procedure TForm1.Button1Click(Sender: TObject);
var  st, sp, ss, buf: string; i, k, r: integer; {m: array[1..1000] of integer;}
procedure shag(vh: string; var buf: string);
var st, ss, tmp: string; i, r: integer;
begin
   st:= tmp;
   while(pos(' ',st)=1) do delete(st, 1, 1);
   while (pos('  ',st)<> 0) do
    begin
     i:= pos('  ',st); delete(st,i,1)
    end;
   i:= ansipos(sp, st);
   if i<> 0 then
    begin
     ss:= copy(st, i+1, length(st)-i); ss:= ss+ ' ';
     delete(st, i+1, length(st)-i);
     memo2.Lines.Add(st);
     if pos(' .', st)<>0 then
      begin
       i:= pos(' .', st); delete(st, i, 1)
      end;
     tmp:= ss+ memo1.Lines[r+1];
    end else
    begin
     st:= st+ ' ';
     tmp:= st+ memo1.lines[r+1];
    end;
end;
 
begin
 sp:= '.';//тут будет лист бокс
 buf:= memo1.Lines[0];
 for r:= 0 to memo1.Lines.Count-1 do  shag(buf, buf);
 
  memo2.Lines.Add(buf);  shag(buf, buf);
end;