Hallo,
das ganze sollte dann ungefähr so aus sehen...
Delphi-Quellcode:
begin
Textoutput.Clear;
b := 0;
a :=Textinput.Lines.Count;
if a > 0 then
begin
while a > b then
begin
s1:= Textinput.lines[b];
s2:= Bearbeitung(s1);
Textoutput.Lines.Add := s2;
b:=b+1;
end;
end
else showmessage('Bitte Text eingeben!');
end;
[EDIT] Hab gerade kein Delphi zur Hand, du musst allerdings, den unteren Teil nochmal überprüfen.
Gruß Jens