Probleme mit Memo und Tastendruck

[Sharky]

Hai Beatmaster S,

warum nicht einfach so:

Delphi-Quellcode:

var
 icount : Integer;
 sl : TStringList;

procedure TForm1.FormCreate(Sender: TObject);
begin
  sl := TStringList.Create;
  sl.Add('Hallo');
  sl.Add('Halli');
  sl.Add('*blubb*');
  icount := 0;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FreeAndNil (sl);
end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = #13 then
  begin
    if (icount < sl.Count) then
    begin
      Memo1.Lines.Add(sl.Strings[icount]);
      INC (icount);
    end;
  end;
end;