Código Delphi [-] b := (RichView.RichEdit.Lines.Text = String.Empty);
b := (RichView.RichEdit.Lines.Text = String.Empty);