Zeile in einem Memo ersetzen

[loirad]

Hier der Code

Delphi-Quellcode:

Zeile:='';
for i:=0 to Hilfe.Lines.Count-1 do
 begin
  if length(Hilfe.Lines.Strings[i])>0 then
   for j:=1 to length(Hilfe.Lines.Strings[i]) do
    begin
     Zeile:=Zeile+Hilfe.Lines.Strings[i][j];
     Ausgabe.Lines.Delete(i);
     Ausgabe.Lines.Add(Zeile);
     sleep(50);
     Application.ProcessMessages;
    end
  else
   Ausgabe.Lines.Add(Zeile);
  Zeile:='';
 end;

In Hilfe wird am Anfang die Textdatei eingelesen und in Ausgabe Buchstabe für Buchstabe langsam eingetragen!
Variablen: i,j:integer; Zeile:string;

Liebe Grüße
loirad