funções

pessoal tenho as seguintes funções em uma unit denominada funções.

nos formulários de clientes chamo uma função e no de cidades chamo a
outra...

como são as mesmas constantes gostaria de saber de como fazer isso somente
em uma funcao pois tenho 8 formularios e 8 funcoes que so mudam o valor de
tabela...

function validarcodigocli : boolean;
begin
DM1.TTemp.TableName := DM1.TClientes.tableName;
DM1.TTemp.IndexFieldNames := DM1.TClientes.IndexfieldNames;
DM1.TTemp.Open;
Result := DM1.TTemp.Locate (´Codigo_cliente´,
DM1.TClientesCodigo_Cliente.AsInteger, []);
DM1.TTemp.close;
if result then
Begin
Messagebox(0,´Codigo já está cadastrado.´,
´Falha na validação de Dados´, MB_Iconstop or Mb_Ok);
End;
Result := Not Result;
end;

function validarcodigocidades : boolean;
begin
DM1.TTemp.TableName := DM1.TCidades.tableName;
DM1.TTemp.IndexFieldNames := DM1.TCidades.IndexfieldNames;
DM1.TTemp.Open;
Result := DM1.TTemp.Locate (´Codigo_cidade´,
DM1.TCidadesCodigo_Cidade.AsInteger, []);
DM1.TTemp.close;
if result then
Begin
Messagebox(0,´Codigo já está cadastrado.´,
´Falha na validação de Dados´, MB_Iconstop or Mb_Ok);
End;
Result := Not Result;
end;


se alguem puder me ajudar agradeço desde já.