Hola.
Se me ocurre que podrías aprovechar el evento AfterPost del DataSet.
Por ejemplo:
Código Delphi
[-]
procedure TForm.DataSetAfterPost(DataSet: TDataSet);
begin
ShowMessage('Sr. Usuario su código de registro es: '+
DataSet1.FieldByName('CAMPO_ID').AsString);
end;
Pero si guardás haciendo click sobre un botón, también podés incluirlo allí, luego del Post.
Saludos.