auto increment no Sql Server 7.0

Quase toda Vez Quando Salvo um Novo Registro ele salva legal mas no campo do Auto Incremento ele mantem no nº 0 Verifique como esta a Procedure

Try
IF NOT (ADO_CONECT.InTransaction) THEN BEGIN
ADO_CONECT.BeginTrans;
TBOS.Post;
ADO_CONECT.CommitTrans;
Beep;
if Application.MessageBox(´Você deseja Iniciar a Impressão agora ?´, ´Controle para Assistência Técnica - Orçamento!´,
Mb_YesNo + Mb_IconInformation)=IdYes then
Bitbtn8.Click;
Edit1.Text := TBOSCodigo_Os.AsString;
End
Except
ADO_CONECT.RollbackTrans;
Bitbtn5.Click;
Beep;
ShowMessage(´Erro ao Salvar o Ultimo Registro, Registro Cancelado !!!´);
EXIT;

end