, hvordan til at konvertere enhver komponent i en snor.,, funktion componenttostring (komponent: tcomponent): string;,, var, binstream: tmemorystream;,, strstream: tstringstream;,, begynder, binstream: = tmemorystream. skabe;,,,, strstream: = tstringstream. skabe (følge);,,,, binstream. writecomponent (del), binstream. søge (0, sofrombeginning);,, objectbinarytotext (binstream, strstream);,, strstream. søge (0, sofrombeginning);,, resultat: = strstream. datastring; og endelig, strstream. fri,,,,,, og endelig, binstream. gratis,,,,,,,,,,,