ActiveDelphi

[claudioforca]

Tenho hoje um código que pega o ultimo registro e adiciona o valor da chave primaria numérica + 1 e cria um novo registro na propriedade query new record pega o ultimo numero +1; mas além disso quero, que quando um usuário excluir um registro com código igual a 3 por exemplo, que o próximo query new record coloque o numero 3, como faço? lembro quero adicionar e manter a lógica anterior caso não ache um registro excluído.
O código atual é:

procedure TFrmClientes.QryFormNewRecord(DataSet: TDataSet);
begin
inherited;
with DM.qryFreeSQL do
begin
SQL.Clear;
SQL.Text := 'SELECT MAX(CodIrmao) FROM Irmaos';
Open;
If FIELDS[0].IsNull then
qryFormCodIrmao.value := 1
else
qryFormCodIrmao.value := Fields[0].AsInteger + 1;
Close;
end;