Wie Enters aus einem String entfernen?

[nahpets]

Wie wäre es denn mit:

Delphi-Quellcode:

except
    on E: Exception do
    begin
      lvStr := 'Fehler beim Verbinden mit der Datenbank!'
      + sLineBreak + sLineBreak + E.ClassName + sLineBreak + E.Message;
      MessageDlg(lvStr, mtError, [mbOk], 0);
      EventLog.Error(Format('Fehler beim Verbinden mit der Datenbank! - %s - %s',[E.ClassName E.Message]));
      EventLog.Info('- - - - - Anwendung geschlossen - - - - -');
      Application.Terminate;
    end;
  end;