Utilizar função em mais de um lugar

seleciona o código dentro de begin
clica com botão direito
refactor > extract method
só dar o nome deste novo método e chamar ele em todos os botões

devmedia delphi iniciante 8