Рандомизация текста

Type
   Tarr=array of string;
   TTextRandomaze =record
     function Main( input:string ):string;
     function any_Block( input:string ):Tarr;
     function any_Beta( input:string ):string;
     function CountPos(const subtext: string; Text: string): Integer;
   end;
 
  function TTextRandomaze.Main( input:string ):string;
var
 arr:Tarr;
i:integer;
begin
    arr:=any_block(input);
 
    for I := 0 to length(arr)-1 do
    begin
      if (pos('{',arr[i])<>0) and (pos('}',arr[i])<>0) then
           begin
      Result:= Result+ any_Beta(arr[i]) ;
           end
      else
      Result:= Result+arr[i];
    end;
end;
 
function TTextRandomaze.Any_Beta( input:string ):string;
var i,len:integer;
begin
   //{1 2 3 | {1|2|{31|32}} яяяяя}
    len:= length(input);
    input:=trim(input);
    Delete(input,len,len);
    Delete(input,1,1);
 
    if (pos('{',input)<>0) and (pos('}',input)<>0) then
    begin
       Result:= Main(input);
       i := countpos('|',Result)+1;
       Result:= Result.Split(['|'])[ math.RandomRange(0,i) ];
    end
    else
    begin
        i := countpos('|',input)+1;
        Result:= input.Split(['|'])[ math.RandomRange(0,i) ];
    end;
 
end;
function TTextRandomaze.Any_block( input:string ):Tarr;
var i,len,open,close:integer;
 str:string;
begin
    len:=length(input);
    open:=0;
    close:=0;
    for I :=1 to len do
    begin
 
 
      if input[i]='{' then
      begin
         if (open=0) and (str<>'') then
         begin
          //найден пустой }...{
          setlength(Result,length(Result)+1);
          Result[length(Result)-1]:= str;
          str:='';
         end;
         inc(open);
      end
      else if input[i]='}' then
      begin
        inc(close);
        if open=close then
        begin
          //найден целый элем {}
          str:=str+ input[i];
          setlength(Result,length(Result)+1);
          Result[length(Result)-1]:= str;
          open:=0;
          close:=0;
          str:='';
          continue;
        end;
 
      end
      else if i=len then
      begin
       //конец сторки
          str:=str+ input[i];
          setlength(Result,length(Result)+1);
          Result[length(Result)-1]:= str;
          break;
      end;
      str:=str+ input[i];
    end;
 
end;
function TTextRandomaze.CountPos(const subtext: string; Text: string): Integer;
begin
  if (length(subtext) = 0) or (length(Text) = 0) or (pos(subtext, Text) = 0)
  then
    Result := 0
  else
    Result := (length(Text) - length(StringReplace(Text, subtext, '',
      [rfReplaceAll]))) div length(subtext);
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
var T:TTextRandomaze;
i:integer;
begin
for i := 0 to form1.Memo1.Lines.Count - 1 do
begin
      memo3.lines.add(T.main(form1.Memo2.Text));
end;
 
end;