optimizar el codigo en menos lineas

[darkbits]

este codigo me funciona perfectamente
lo utilizo para actualizar el valor utilizo, el mismo codigo utilizo en mas de 10 formularios. y tengo que copiarlos 1x1 para que funcione.

mi consulta es como puedo tener este codigo una sola vez, y que cada vez que lo necesite lo llame como una funcion o mejor como precedure
sin estar copiando 1x1 en cada form q necesito

es para optimizar el codigo en menos lineas nada mas.
ojo el sql y el codigo me funciona de pelo. lo unico quiero optimizar para que no sea pepetitivo mas de 10 veces en el proyecto.

Código Delphi [-]
procedure T_Sisterna.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   _DM.consulta1.SQL.Text:='select * From sisterna Where op_sis='''+operador+'''';
   _DM.consulta1.Open;
    SpeedButton1.caption:= _DM.consulta1.FieldByName('e10').text +' TARJETAS 10BS';
    SpeedButton2.caption:= _DM.consulta1.FieldByName('e20').text +' TARJETAS 20BS';
    SpeedButton3.caption:= _DM.consulta1.FieldByName('e30').text +' TARJETAS 30BS';
    SpeedButton4.caption:= _DM.consulta1.FieldByName('e50').text +' TARJETAS 50BS';
    SpeedButton5.caption:= _DM.consulta1.FieldByName('e100').text +' TARJETAS 100BS';
    SpeedButton6.caption:= _DM.consulta1.FieldByName('e100c').text +' CABINAS 100BS';
 
end;