в процедуру вставки добавляете возврат вставленного значения идентификатора
CREATE PROCEDURE up_Insert(@Name varchar( 50 )) AS
insert into testIdentity (Name) values(@Name)
return(@@identity)
GO
а в Delphi забираете это значение из параметра @RETURN_VALUE
 (не забудте выставить у ADOCommand1 свойство eoExecuteNoRecords в True)
  ADOCommand1.Parameters.ParamByName('@Name').Value := 'NewName';
  ADOCommand1.Execute;
  Label1.Caption := IntToStr(ADOCommand1.Parameters.ParamByName('@RETURN_VALUE').Value);