Igual que en un SELECT...
No conozco BCB pero supongo que hay algo así como FieldByName().
Código:
Query->Close();
Query->SQL->Text = "EXECUTE PROCEDURE Act_Libro (:Registro, :Titulo, :Autor, :Genero, :Situacion)";
Query->ParamByName("Titulo")->AsString = Titulo_libro->Text;
Query->ParamByName("Autor")->AsString = Autor->Text;
Query->ParamByName("Genero")->AsString = Genero_libro->Text;
Query->ParamByName("Situacion")->AsString = Situacion_libro->Text;
Query->ParamByName("Registro")->AsInteger = this->Tag;
Query->ExecSQL();
RegistroCreado = Query->FieldByName("newrec")->AsInteger;
Query->Transaction->Commit();