//-----------------------------------------------------------void __fastcall TMainForm::EditWordWrapClick(TObject *Sender)
{
// Modificar la propiedad TMemo::WordWrap.
Memo->WordWrap = !Memo->WordWrap;
EditWordWrap->Checked = Memo->WordWrap;
// Si WordWrap está activo, una barra. Si no, dos.
if (Memo->WordWrap) Memo->ScrollBars = ssVertical;
else Memo->ScrollBars = ssBoth;
}
//-----------------------------------------------------------