Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
procedure TForm1.Button1Click(Sender: TObject); begin Memo1.Font.Style:=Memo1.Font.Style + [fsStrikeOut] //Para quitarlo, igual pero Memo1.Font.Style:=Memo1.Font.Style - [fsStrikeOut] end;