Help Interbase atualizando em rede

Alguem pode me mandar algum exemplo para mim....estou fazendo seguinte.:
Procedure incluir

with qry do begin
sql.Text := ´select * from funcionario where idfunc = 0´;
open;
Insert;
dmmenu.IBTransaction1.Active:=false;
dmmenu.IBTransaction1.Active:=true;
fieldbyname(´idfunc´).AsString := contador;
post;
qry.Refresh;
dmmenu.IBTransaction1.CommitRetaining;
end;
end;
obs. aqui eu gravo o id.
e o problema que a estacao A tem o id = 90 se a estacao B aperta o botao
incluir ao mesmo tempo
tb vai ficar com id=90, duplicando o id(chave)

Obs1 . Estou usando o IBTransaction1 e o IBDatabase1

Desde ja agradeco

Evandro