[teecweb]

Holas en intentado de esta manera :
pero sale que no se puede llamar a ese procedimiento..gracias por sus respuesta

Código Delphi [-]
procedure checkboxlistDibujo(var i: integer);


begin
 with CheckListBox1.ItemObject[i] do
    begin
      tcheckbox(CheckListBox1.ItemObject[i]).Font.Style := [fsStrikeOut]
      end;
   
end;