Como criar esta função ou procedure?

Olá

Tenho uma rotina que preciso usar em 21 SpeedButton. Acho muita informação para colocar em vários SpeedButton.
O ideal é criar uma função ou procedure para isto. Mas não sei como fazer. :oops:
Alguém pode me mostrar como fazer?

O que quero em cada botão é o seguinte:

Passar o nome do SpeedButton clicado para o ParamByName e fazer a verificação abaixo.

IBDataSet1.Close;
IBDataSet1.ParamByName(´AP´).Value:= Nome;
IBDataSet1.Open;
if IBDataSet1.RecordCount>0 then
begin
SpeedButtonClicado.Font.Color:= clNavy;
Menu1.Click;
end
else
IBDataSet1.Close;