Quelltext Verständnis Problem

[tEhHoLLoW]

Ich hab von einem Freund ein Stück Quelltext für mein Programm bekommen aber er ist jetzt im Urlaub und kann es mir nicht wirklich erklären ich hoffe ihr könnt mir dabei helfen

Der 1. Teil Wandelt einen Text in Binär Zahlen um.

Delphi-Quellcode:

binCodeA:='';
        asc:= length(cop);

        for y:= 1 to asc do
        begin
                zahl:=ord(cop[y]);
                zahl2:=zahl;
                binCodeS:='';

                while zahl2>0 do
                begin
                        bin:=zahl2 mod 2;
                        zahl2:=zahl2 div 2;
                        binCS:=inttostr(bin);
                        binCodeS:=binCS+binCodeS;
                end;

                if length(binCodeS)<8 then
                begin
                        hlp:=8-length(binCodeS);

                        for x:= 1 to hlp do
                        begin
                                binCodeS:='0'+binCodeS;
                        end;

                end;

                binCodeA:=binCodeA+binCodeS;
        end;

Der 2. Teil wandelt die Binär Zahlen dann wieder zurück in Text.

Delphi-Quellcode:

        binCodeA:=code.Text;
        binDecodeS:='';
        binDecodeA:='';
        hlp:=length(binCodeA);
        count:=hlp div 8;

 

        for x:= 1 to count do
        begin
                binDS:='';

                for y:= 1 to 8 do
                begin
                        binDS:=binDS+binCodeA[1];
                        delete(binCodeA,1,1);
                end;
                
                for z:= 1 to 8 do
                begin
                        if copy(binDS,z,1)='1' then
                        begin
                                case z of
                                1: zahl3:=128;
                                2: zahl3:=64;
                                3: zahl3:=32;
                                4: zahl3:=16;
                                5: zahl3:=8;
                                6: zahl3:=4;
                                7: zahl3:=2;
                                8: zahl3:=1;
                                end;
                        end
                        else
                        begin
                                zahl3:=0;
                        end;

                        zahl4:=zahl3+zahl4;
                end;

                binDecodeS:=chr(zahl4);
                zahl4:=0;
                binDecodeA:=binDecodeA+BinDecodeS;
        end;

Die Quelltexte sind alle richtig und funktionieren auch perfekt in meinem Programm aber ich verstehe die einzelnen befehle nicht wirklich und hoffe ihr könnt mir ein paar Kommentare zu den einzelnen Zeilen schreiben damit ich den Quelltext auch verstehe den ich benutze.
Vorallem der 2. Teil mit dem copy und delete sind mir nicht so verständlich.