Delphi-Quellcode:
for i := 0 to length(duchstring) do begin
zeichen := duchstring[i]+duchstring[i+1];
Die Schleife sollte nur bis
length(durchstring)-1
laufen, da du sonst auf ein Zeichen zugreifst, dass nicht existiert, was schlimmstenfalls in einer Zugriffsverletzung enden könnte.