Delphi - texto tachado

Quiero que al pulsar un botón se tache el texto de un memo.
¿Como puedo hacerlo?

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;

Gracias Juzam