Problem mit Textausgabe -> TMemo

[JBJHJM]

Hi! Ich habe ein - sicherlich ganz einfach zu lösendes- Problem...
Hier ist ein Ausschnitt aus einem Code:

Delphi-Quellcode:

begin
  Textoutput.Clear;
  b:=0;
  a:=length(textinput.Lines[0]);
  if a>0 then
  begin
    repeat
      begin
       s1:= Textinput.lines[b];
       s2:= Bearbeitung(s1);
       Textoutput.Lines[b]:= s2;

       b:=b+1;
       a:= length(textinput.Lines[b]);
       showmessage(s1+' '+s2);
      end;
    until a=0;
  end
    else showmessage('Bitte Text eingeben!');
end;

Der Code liest -Zeile für Zeile- aus textinput ein, bearbeitet ihn mit "Bearbeitung" und gibt ihn in textoutput aus, textinput und textoutput sind TMemos. "Showmessage..." ist nur zum testen!

DAS PROBLEM:
Die erste Zeile läuft einwandfrei durch, die Zweite aber nur bis "s2:= Bearbeitung...", also s2 wird noch richtig bestimmt, aber eigentlich sollte s2 dann ja in der 2. Zeile ausgegeben werden, aber das wird es leider nicht

Weiss jemand woran das liegt??

P.S.: Bin eher Einsteiger, also wundert euch nicht über solche Fragen