Memo Text einblenden "Schreibmaschienen Effekt"

[igel457]

wie wärs mit:

Delphi-Quellcode:

procedure Effect(source:TStringlist;var output:TMemo);
var i,j:integer;
begin
  for i := 0 to source.count-1 do
  begin
    for j := 1 to length(source[i]) do
    begin
      output.text := output.text+source[i][j];
      output.repaint;
      sleep(50);
    end;
  end;
end;