da war schon wordwrap := false und ich füge auch keine zweimal was hinzu ...
Delphi-Quellcode:
procedure TForm1.EingabeKeyPress(Sender: TObject; var Key: Char);
var st : String;
begin
st := Eingabe.Text;
if Key = #13 then begin
Richedit1.Lines.Add(Nickname + ' : ' + st);
Eingabe.Text := '';
end;
end;
(Nickname ist ein Variable (also aufm Bild 'NeutralGeneral'))