Einfach jedes Zeichen in einen Integer umwandeln (Ord), dann die Bits aufteilen (shr und "and 3") und dann den erhaltenen Wert wieder in eine Zahl umwandeln (IntToStr).
Was die einzelnen Befehle machen, findest du in der
OH 
Delphi-Quellcode:
S := 'abc...';
S2 := '';
For i := 1 to Length(S) do
S2 := S2 + IntToStr((Ord(S[i]) shr 6) and 3) +
IntToStr((Ord(S[i]) shr 4) and 3) +
IntToStr((Ord(S[i]) shr 2) and 3) +
IntToStr(Ord(S[i]) and 3);
S ist dein zufälliger String
und
S2 der mit den Zahlen ^^