Tachar una palabra en delphi

[teecweb]

Disculpa por no haberme explicado mejor..el codigo esta en innosetup
tengo una lista de cheboxlist y con un boton cada vez que que chekeo y hago click en el boton se tacha el item del checkboxlist ...aki tengo un codigo donde ya recibo el indice que chekeo.. en esta funcion el inidce es el i..el problema que cuando compilo me sale ke no reconoce canvas.

//como ya recibo el inidice del checkbox chekeado que es i y otra vez pregunto si esta chekeado...al compilarlo me sale que no reconoce canvas..gracias por tu respuesta..

Código Delphi [-]
procedure checkboxlistDibujo(var i: integer);
begin
    if CheckListBox1.Checked[i] then
     Canvas.Font.Style:= [fsStrikeOut];
  end;
end;