Código Delphi [-] TCheckBox(CheckListBox1.ItemObject[i]).Font.Style := [fsStrikeOut]
TCheckBox(CheckListBox1.ItemObject[i]).Font.Style := [fsStrikeOut]