Memo mit KeyPress und String einfügen

[tomsel]

Delphi-Quellcode:

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
begin
   if (key=#13)and(memo1.Lines.Count > 0) then
      if memo1.Lines[pred(memo1.Lines.Count)][1] = '-' then begin
         memo1.Lines.Add('-');
         key := #0
      end
end;

Gruß
tomsel