[Resolvido] como criar função de UNIT

tenho o seguinte bloco:

dm.SQL_dep.Close;

dm.SQL_dep.SQL.Clear;

dm.SQL_dep.SQL.Add('select COD_DEP, DEPOSITO FROM DEPOSITOS WHERE ESTAB='+VartoStr(frmcadProdutos.edt_estab.KeyValue));

dm.SQL_dep.Open;

que vai ser chamada mais de uma vez por 2 tipos de eventos diferentes...

pra nao ter de repetir como posso fazer pra criar uma função, pois não sei como como criar nem declarar...

abraço