Fórum Firebird em duas máquinas ao mesmo tempo #376411

EStou começando no firebird. Quando mando gravar na tabela do servidor está tudo bem, agora quando roda o servidor e cliente ao mesmo tempo ta dando o erro de pk_primary key. meu código de gavação: mando através de uma sql pear o maior código e acrescentar mais um: DMAMIZ.ibqMaxVenda.Close;
DMAMIZ.ibqMaxVenda.SQL.Clear;
DMAMIZ.ibqMaxVenda.SQL.Add('select max(CodVenda) from Venda');
DMAMIZ.ibqMaxVenda.Open;
Codvenda:=dmamiz.ibqMaxVendamax.AsInteger +1 ;
dmamiz.ibtVenda.Append;
dmamiz.ibtVendaCODVENDA.AsInteger:=Codvenda;
dmamiz.ibtVenda.post;
dmamiz.ibtVenda.refresh;
dmamiz.ibtVenda.ApplyUpdates;
DMAMIZ.IBTransaction1.CommitRetaining;
//esse aqui não adiantou, mais quando troquei para:
DMAMIZ.IBTransaction1.Commit;
//funcionou mais tenho que abrir todas as tabelas e querys aí fica lento, será que errei aonde? o que fazer para gravar fisicamente os registros e pela rede o computador cliente acumular mais um no código da venda? OBS.: Estou usando delphi 6 e Firebird 1.5 obrigado pela atenção