Wie schaffe ich eine Stringmischung ohne Zufall

[KodeZwerg]

Delphi-Quellcode:

function StringMix(Input1, Input2: String): String;
var
  i: Integer;
begin
  for i := 1 to Length(Input1) do
  begin
    Result := Result + Input1[i];
    if Length(Input2) >= i then Result := Result + Input2[i];
  end;
  for i := i to Length(Input2) do
    Result := Result + Input2[i];
end;

Teste das mal, QnD aber sollte das machen was Du möchtest.

edit
Ps: Eine Rückumwandlung ist ausgeschlossen falls das Deine nächste Frage dazu werden sollte.