Zugriffsverletzung in Procedure

[neolithos]

Mal ne saubere alternative....

Delphi-Quellcode:

procedure create_mem(Memo: TMemo);
const
  csZeichen : array [0..97] of char = 'ABC  zeichen noch eingeben';
var y, 
    iZeilen, 
    iZeilenLen, 
    x : integer; 
    sZeile : string; 
    lstBuf : TStringList;
begin
  randomize;
  lstBuf := TStringList.Create;
  try
    iZeilen := random(80);
    for y := 1 to iZeilen do 
        begin
          iZeilenLen := random(50);
          sZeile := '';
          for x := 0 to iZeilenLen do  
              sZeile := sZeile + csZeichen[random(98)];
         lstBuf.Add(sZeile);
       end;
    Memo.Clear;
    Memo.Lines.Assign(lstBuf); 
  finally
    lstBuf.Free;
  end;
end;